home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1992-05-27 | 15.6 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1f f4 20 3e 20 | 3c 57 53 65 61 72 63 68 |..... > |<WSearch|
|00000010| 24 44 69 72 3e 2e 21 52 | 75 6e 49 6d 61 67 65 0d |$Dir>.!R|unImage.|
|00000020| 00 0f 49 f4 20 54 68 61 | 6e 6b 73 20 74 6f 20 50 |..I. Tha|nks to P|
|00000030| 61 75 6c 20 48 6f 62 62 | 73 20 77 68 6f 20 70 72 |aul Hobb|s who pr|
|00000040| 6f 76 69 64 65 64 20 6d | 75 63 68 20 6f 66 20 74 |ovided m|uch of t|
|00000050| 68 65 20 63 6f 64 65 20 | 66 6f 72 20 74 68 69 73 |he code |for this|
|00000060| 20 70 72 6f 67 72 61 6d | 0d 00 14 0e ee 20 85 20 | program|..... . |
|00000070| f2 65 72 72 6f 72 0d 00 | 1e 1f 76 65 72 73 69 6f |.error..|..versio|
|00000080| 6e 24 3d 22 31 2e 32 30 | 20 28 32 38 2d 4d 41 59 |n$="1.20| (28-MAY|
|00000090| 2d 39 32 29 22 0d 00 28 | 0e de 20 71 25 20 31 31 |-92)"..(|.. q% 11|
|000000a0| 35 30 30 0d 00 32 11 de | 20 62 75 66 66 65 72 31 |500..2..| buffer1|
|000000b0| 25 20 32 30 0d 00 3c 0f | 24 71 25 3d 22 54 41 53 |% 20..<.|$q%="TAS|
|000000c0| 4b 22 3a 0d 00 46 33 c8 | 99 20 22 57 69 6d 70 5f |K":..F3.|. "Wimp_|
|000000d0| 49 6e 69 74 69 61 6c 69 | 73 65 22 2c 32 30 30 2c |Initiali|se",200,|
|000000e0| 21 71 25 2c 22 57 53 65 | 61 72 63 68 22 20 b8 20 |!q%,"WSe|arch" . |
|000000f0| 2c 74 61 73 6b 25 0d 00 | 50 15 c8 99 20 22 48 6f |,task%..|P... "Ho|
|00000100| 75 72 67 6c 61 73 73 5f | 4f 6e 22 0d 00 5a 31 53 |urglass_|On"..Z1S|
|00000110| 25 3d 8e 20 22 3c 57 53 | 65 61 72 63 68 24 44 69 |%=. "<WS|earch$Di|
|00000120| 72 3e 2e 53 70 72 69 74 | 65 73 22 3a 54 25 3d a2 |r>.Sprit|es":T%=.|
|00000130| 23 53 25 2b 31 36 3a d9 | 20 23 53 25 0d 00 64 19 |#S%+16:.| #S%..d.|
|00000140| de 20 73 70 20 54 25 3a | 21 73 70 3d 54 25 3a 73 |. sp T%:|!sp=T%:s|
|00000150| 70 21 34 3d 30 0d 00 6e | 14 73 70 21 38 3d 31 36 |p!4=0..n|.sp!8=16|
|00000160| 3a 73 70 21 31 32 3d 31 | 36 0d 00 78 45 c8 99 20 |:sp!12=1|6..xE.. |
|00000170| 22 4f 53 5f 53 70 72 69 | 74 65 4f 70 22 2c 26 32 |"OS_Spri|teOp",&2|
|00000180| 30 39 2c 73 70 20 20 20 | 20 20 20 20 20 20 20 20 |09,sp | |
|00000190| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a f4 20 63 | | :. c|
|000001a0| 6c 65 61 72 20 75 73 65 | 72 20 61 72 65 61 0d 00 |lear use|r area..|
|000001b0| 82 44 c8 99 20 22 4f 53 | 5f 53 70 72 69 74 65 4f |.D.. "OS|_SpriteO|
|000001c0| 70 22 2c 26 32 30 41 2c | 73 70 2c 22 3c 57 53 65 |p",&20A,|sp,"<WSe|
|000001d0| 61 72 63 68 24 44 69 72 | 3e 2e 53 70 72 69 74 65 |arch$Dir|>.Sprite|
|000001e0| 73 22 20 3a f4 20 6c 6f | 61 64 20 73 70 72 69 74 |s" :. lo|ad sprit|
|000001f0| 65 73 0d 00 8c 39 73 69 | 63 6f 6e 3d a4 69 63 6f |es...9si|con=.ico|
|00000200| 6e 5f 63 72 65 61 74 65 | 28 2d 31 2c 30 2c 30 2c |n_create|(-1,0,0,|
|00000210| 36 38 2c 36 38 2c 30 2c | 30 2c 26 33 30 30 32 2c |68,68,0,|0,&3002,|
|00000220| 22 21 57 53 65 61 72 63 | 68 22 29 0d 00 96 12 63 |"!WSearc|h")....c|
|00000230| 6c 61 69 6d 71 75 65 72 | 79 24 3d 22 22 0d 00 a0 |laimquer|y$=""...|
|00000240| 3b 63 6c 61 69 6d 6d 65 | 6e 75 24 20 3d 22 22 20 |;claimme|nu$ ="" |
|00000250| 20 20 20 20 20 20 20 20 | 3a f4 20 53 65 74 20 62 | |:. Set b|
|00000260| 79 20 74 68 65 20 6d 65 | 6e 75 5f 78 78 78 78 20 |y the me|nu_xxxx |
|00000270| 72 6f 75 74 69 6e 65 73 | 0d 00 aa 3f 63 6c 61 69 |routines|...?clai|
|00000280| 6d 64 72 61 67 24 20 3d | 22 22 20 20 20 20 20 20 |mdrag$ =|"" |
|00000290| 20 20 20 3a f4 20 53 65 | 74 20 62 79 20 74 68 65 | :. Se|t by the|
|000002a0| 20 75 73 65 72 64 72 61 | 67 5f 78 78 78 78 20 72 | userdra|g_xxxx r|
|000002b0| 6f 75 74 69 6e 65 73 0d | 00 b4 16 63 6c 6f 73 65 |outines.|...close|
|000002c0| 64 6f 77 6e 20 20 20 20 | 20 20 20 3d a3 0d 00 be |down | =....|
|000002d0| 16 6f 70 65 6e 25 20 20 | 20 20 20 20 20 20 20 20 |.open% | |
|000002e0| 20 3d a3 0d 00 c8 16 63 | 68 61 6e 67 65 64 25 20 | =.....c|hanged% |
|000002f0| 20 20 20 20 20 20 20 3d | a3 0d 00 d2 16 77 68 6f | =|.....who|
|00000300| 6c 65 25 20 20 20 20 20 | 20 20 20 20 20 3d b9 0d |le% | =..|
|00000310| 00 dc 47 41 41 3d 30 3a | 70 6f 73 25 3d 30 3a 70 |..GAA=0:|pos%=0:p|
|00000320| 6f 73 78 25 3d 31 3a 70 | 6f 73 79 25 3d 31 3a 4e |osx%=1:p|osy%=1:N|
|00000330| 75 6d 3d 30 3a 61 61 24 | 3d 22 57 4f 52 44 22 3a |um=0:aa$|="WORD":|
|00000340| 69 6e 63 78 25 3d 31 3a | 69 6e 63 79 25 3d 30 3a |incx%=1:|incy%=0:|
|00000350| 69 6e 63 25 3d 31 0d 00 | e6 42 de 20 74 65 78 74 |inc%=1..|.B. text|
|00000360| 24 28 35 30 29 2c 73 65 | 74 74 69 6e 67 28 35 30 |$(50),se|tting(50|
|00000370| 29 2c 66 6c 61 67 73 28 | 35 30 29 20 3a f4 20 75 |),flags(|50) :. u|
|00000380| 73 65 64 20 62 79 20 74 | 68 65 20 6d 65 6e 75 20 |sed by t|he menu |
|00000390| 72 6f 75 74 69 6e 65 73 | 0d 00 f0 42 de 20 73 75 |routines|...B. su|
|000003a0| 62 6d 65 6e 75 28 35 30 | 29 2c 72 65 66 28 35 30 |bmenu(50|),ref(50|
|000003b0| 29 2c 6d 65 6e 75 70 6f | 73 28 32 30 29 20 3a f4 |),menupo|s(20) :.|
|000003c0| 20 75 73 65 64 20 62 79 | 20 74 68 65 20 6d 65 6e | used by| the men|
|000003d0| 75 20 72 6f 75 74 69 6e | 65 73 0d 00 fa 0f de 20 |u routin|es..... |
|000003e0| 6d 65 6e 75 25 20 35 31 | 32 0d 01 04 15 de 20 69 |menu% 51|2..... i|
|000003f0| 6e 64 69 72 65 63 74 25 | 20 26 32 30 30 30 0d 01 |ndirect%| &2000..|
|00000400| 0e 11 de 20 6d 73 67 62 | 6c 6b 25 20 32 35 36 0d |... msgb|lk% 256.|
|00000410| 01 18 25 de 20 42 24 28 | 31 35 29 2c 41 24 28 32 |..%. B$(|15),A$(2|
|00000420| 32 35 29 2c 41 28 38 30 | 30 29 2c 77 6f 72 64 24 |25),A(80|0),word$|
|00000430| 28 35 30 29 0d 01 22 25 | 69 70 74 72 25 3d 69 6e |(50).."%|iptr%=in|
|00000440| 64 69 72 65 63 74 25 3a | 69 65 6e 64 25 3d 69 70 |direct%:|iend%=ip|
|00000450| 74 72 25 2b 26 32 30 30 | 30 0d 01 2c 17 6d 79 5f |tr%+&200|0..,.my_|
|00000460| 66 69 6c 65 74 79 70 65 | 25 20 3d 20 26 46 46 46 |filetype|% = &FFF|
|00000470| 0d 01 36 31 46 49 4c 45 | 24 20 3d 20 22 22 20 20 |..61FILE|$ = "" |
|00000480| 20 20 20 3a f4 20 4e 61 | 6d 65 20 6f 66 20 74 68 | :. Na|me of th|
|00000490| 65 20 6c 6f 61 64 65 64 | 20 64 61 74 61 66 69 6c |e loaded| datafil|
|000004a0| 65 0d 01 40 1a de 20 66 | 64 61 74 65 25 20 35 2c |e..@.. f|date% 5,|
|000004b0| 66 62 75 66 66 65 72 25 | 20 32 38 0d 01 4a 1a c8 |fbuffer%| 28..J..|
|000004c0| 99 20 22 4f 53 5f 47 65 | 74 45 6e 76 22 20 b8 20 |. "OS_Ge|tEnv" . |
|000004d0| 46 49 4c 45 24 0d 01 54 | 21 70 3d a7 46 49 4c 45 |FILE$..T|!p=.FILE|
|000004e0| 24 2c 22 22 22 22 2c a7 | 46 49 4c 45 24 2c 22 22 |$,"""",.|FILE$,""|
|000004f0| 22 22 29 2b 31 29 0d 01 | 5e 15 46 49 4c 45 24 3d |"")+1)..|^.FILE$=|
|00000500| c1 46 49 4c 45 24 2c 70 | 2b 31 29 0d 01 68 14 c8 |.FILE$,p|+1)..h..|
|00000510| 95 20 c0 46 49 4c 45 24 | 2c 31 29 3d 22 20 22 0d |. .FILE$|,1)=" ".|
|00000520| 01 72 15 20 20 46 49 4c | 45 24 3d c1 46 49 4c 45 |.r. FIL|E$=.FILE|
|00000530| 24 2c 32 29 0d 01 7c 05 | ce 0d 01 86 30 f2 6f 70 |$,2)..|.|....0.op|
|00000540| 65 6e 74 65 6d 70 6c 61 | 74 65 66 69 6c 65 28 22 |entempla|tefile("|
|00000550| 3c 57 53 65 61 72 63 68 | 24 44 69 72 3e 2e 54 65 |<WSearch|$Dir>.Te|
|00000560| 6d 70 6c 61 74 65 73 22 | 29 0d 01 90 1d f2 6c 6f |mplates"|).....lo|
|00000570| 61 64 74 65 6d 70 6c 61 | 74 65 28 22 70 72 6f 67 |adtempla|te("prog|
|00000580| 49 6e 66 6f 22 29 0d 01 | 9a 26 c8 99 20 22 57 69 |Info")..|.&.. "Wi|
|00000590| 6d 70 5f 43 72 65 61 74 | 65 57 69 6e 64 6f 77 22 |mp_Creat|eWindow"|
|000005a0| 2c 2c 71 25 20 b8 20 69 | 6e 66 6f 25 0d 01 a4 19 |,,q% . i|nfo%....|
|000005b0| f2 6c 6f 61 64 74 65 6d | 70 6c 61 74 65 28 22 78 |.loadtem|plate("x|
|000005c0| 66 65 72 22 29 0d 01 ae | 0c 71 25 21 36 34 3d 73 |fer")...|.q%!64=s|
|000005d0| 70 0d 01 b8 26 c8 99 20 | 22 57 69 6d 70 5f 43 72 |p...&.. |"Wimp_Cr|
|000005e0| 65 61 74 65 57 69 6e 64 | 6f 77 22 2c 2c 71 25 20 |eateWind|ow",,q% |
|000005f0| b8 20 78 66 65 72 25 0d | 01 c2 1a f2 6c 6f 61 64 |. xfer%.|....load|
|00000600| 74 65 6d 70 6c 61 74 65 | 28 22 6d 61 69 6e 77 22 |template|("mainw"|
|00000610| 29 0d 01 cc 27 c8 99 20 | 22 57 69 6d 70 5f 43 72 |)...'.. |"Wimp_Cr|
|00000620| 65 61 74 65 57 69 6e 64 | 6f 77 22 2c 2c 71 25 20 |eateWind|ow",,q% |
|00000630| b8 20 6d 61 69 6e 77 25 | 0d 01 d6 1b f2 6c 6f 61 |. mainw%|.....loa|
|00000640| 64 74 65 6d 70 6c 61 74 | 65 28 22 77 6f 72 64 69 |dtemplat|e("wordi|
|00000650| 6e 22 29 0d 01 e0 28 c8 | 99 20 22 57 69 6d 70 5f |n")...(.|. "Wimp_|
|00000660| 43 72 65 61 74 65 57 69 | 6e 64 6f 77 22 2c 2c 71 |CreateWi|ndow",,q|
|00000670| 25 20 b8 20 77 6f 72 64 | 69 6e 25 0d 01 ea 16 f2 |% . word|in%.....|
|00000680| 63 6c 6f 73 65 74 65 6d | 70 6c 61 74 65 66 69 6c |closetem|platefil|
|00000690| 65 0d 01 f4 28 f2 69 63 | 6f 6e 5f 70 75 74 64 61 |e...(.ic|on_putda|
|000006a0| 74 61 28 71 25 2c 69 6e | 66 6f 25 2c 34 2c 76 65 |ta(q%,in|fo%,4,ve|
|000006b0| 72 73 69 6f 6e 24 2c 30 | 29 0d 01 fe 10 e7 20 46 |rsion$,0|)..... F|
|000006c0| 49 4c 45 24 3d 22 22 20 | 8c 0d 02 08 2b 20 20 f2 |ILE$="" |....+ .|
|000006d0| 69 63 6f 6e 5f 70 75 74 | 64 61 74 61 28 71 25 2c |icon_put|data(q%,|
|000006e0| 78 66 65 72 25 2c 32 2c | 22 57 53 65 61 72 63 68 |xfer%,2,|"WSearch|
|000006f0| 22 2c 30 29 0d 02 12 05 | cd 0d 02 1c 31 20 e7 46 |",0)....|....1 .F|
|00000700| 49 4c 45 24 3c 3e 22 22 | 20 f2 69 63 6f 6e 5f 70 |ILE$<>""| .icon_p|
|00000710| 75 74 64 61 74 61 28 71 | 25 2c 78 66 65 72 25 2c |utdata(q|%,xfer%,|
|00000720| 32 2c 46 49 4c 45 24 2c | 30 29 0d 02 26 05 cd 0d |2,FILE$,|0)..&...|
|00000730| 02 30 25 20 e7 20 6f 70 | 65 6e 25 20 f2 6f 70 65 |.0% . op|en% .ope|
|00000740| 6e 77 69 6e 64 6f 77 28 | 6d 61 69 6e 77 25 2c a3 |nwindow(|mainw%,.|
|00000750| 2c 2d 31 29 0d 02 3a 04 | 0d 02 44 16 65 72 72 6f |,-1)..:.|..D.erro|
|00000760| 72 5f 66 6c 61 67 25 20 | 20 20 20 20 3d 33 0d 02 |r_flag% | =3..|
|00000770| 4e 0e ee 20 85 20 f2 65 | 72 72 6f 72 0d 02 58 16 |N.. . .e|rror..X.|
|00000780| c8 99 20 22 48 6f 75 72 | 67 6c 61 73 73 5f 4f 66 |.. "Hour|glass_Of|
|00000790| 66 22 0d 02 62 05 f5 0d | 02 6c 17 20 20 f2 61 63 |f"..b...|.l. .ac|
|000007a0| 74 69 6f 6e 28 a4 70 6f | 6c 6c 28 30 29 29 0d 02 |tion(.po|ll(0))..|
|000007b0| 76 0f fd 20 63 6c 6f 73 | 65 64 6f 77 6e 0d 02 80 |v.. clos|edown...|
|000007c0| 0e 24 71 25 3d 22 54 41 | 53 4b 22 0d 02 8a 22 c8 |.$q%="TA|SK"...".|
|000007d0| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 44 6f 77 |. "Wimp_|CloseDow|
|000007e0| 6e 22 2c 74 61 73 6b 25 | 2c 71 25 21 30 0d 02 94 |n",task%|,q%!0...|
|000007f0| 05 e0 0d 02 9e 0b dd f2 | 65 72 72 6f 72 0d 02 a8 |........|error...|
|00000800| 15 e7 20 65 72 72 6f 72 | 5f 66 6c 61 67 25 3d 33 |.. error|_flag%=3|
|00000810| 20 8c 0d 02 b2 4b 20 20 | f2 65 72 72 6f 72 62 6f | ....K |.errorbo|
|00000820| 78 28 22 55 6e 65 78 70 | 65 63 74 65 64 20 65 72 |x("Unexp|ected er|
|00000830| 72 6f 72 3a 2d 20 22 2b | f6 24 2b 22 20 49 6e 74 |ror:- "+|.$+" Int|
|00000840| 65 72 6e 61 6c 20 65 72 | 72 6f 72 20 63 6f 64 65 |ernal er|ror code|
|00000850| 20 22 2b c3 9e 29 3a f1 | 46 49 4c 45 24 0d 02 bc | "+..):.|FILE$...|
|00000860| 05 cc 0d 02 c6 13 20 20 | f2 65 72 72 6f 72 62 6f |...... |.errorbo|
|00000870| 78 28 f6 24 29 0d 02 d0 | 04 0d 02 da 05 cd 0d 02 |x(.$)...|........|
|00000880| e4 11 65 72 72 6f 72 5f | 66 6c 61 67 25 3d 33 0d |..error_|flag%=3.|
|00000890| 02 ee 18 c8 99 20 22 48 | 6f 75 72 67 6c 61 73 73 |..... "H|ourglass|
|000008a0| 5f 53 6d 61 73 68 22 0d | 02 f8 05 e1 0d 03 02 04 |_Smash".|........|
|000008b0| 0d 03 0c 0c dd f2 6f 6b | 28 65 24 29 0d 03 16 11 |......ok|(e$)....|
|000008c0| 65 72 72 6f 72 5f 66 6c | 61 67 25 3d 31 0d 03 20 |error_fl|ag%=1.. |
|000008d0| 0a 85 20 31 2c 65 24 0d | 03 2a 05 e1 0d 03 34 04 |.. 1,e$.|.*....4.|
|000008e0| 0d 03 3e 12 dd f2 65 72 | 72 6f 72 62 6f 78 28 72 |..>...er|rorbox(r|
|000008f0| 24 29 0d 03 48 08 ea 20 | 72 25 0d 03 52 19 21 71 |$)..H.. |r%..R.!q|
|00000900| 25 3d 9f 3a 24 28 71 25 | 2b 34 29 3d 72 24 2b bd |%=.:$(q%|+4)=r$+.|
|00000910| 28 30 29 0d 03 5c 37 c8 | 99 20 22 57 69 6d 70 5f |(0)..\7.|. "Wimp_|
|00000920| 52 65 70 6f 72 74 45 72 | 72 6f 72 22 2c 71 25 2c |ReportEr|ror",q%,|
|00000930| 65 72 72 6f 72 5f 66 6c | 61 67 25 2c 22 57 53 65 |error_fl|ag%,"WSe|
|00000940| 61 72 63 68 22 20 b8 20 | 72 25 0d 03 66 18 e7 20 |arch" . |r%..f.. |
|00000950| 72 25 3d 32 20 8c 20 63 | 6c 6f 73 65 64 6f 77 6e |r%=2 . c|losedown|
|00000960| 3d b9 0d 03 70 05 e1 0d | 03 7a 3c dd f2 63 6c 69 |=...p...|.z<..cli|
|00000970| 63 6b 77 69 6e 64 6f 77 | 28 6d 6f 75 73 65 78 25 |ckwindow|(mousex%|
|00000980| 2c 6d 6f 75 73 65 79 25 | 2c 62 75 74 74 6f 6e 25 |,mousey%|,button%|
|00000990| 2c 68 61 6e 64 6c 65 25 | 2c 69 63 6f 6e 25 2c 6f |,handle%|,icon%,o|
|000009a0| 62 25 29 0d 03 84 10 c8 | 8e 20 68 61 6e 64 6c 65 |b%).....|. handle|
|000009b0| 25 20 ca 0d 03 8e 2b 20 | 20 c9 20 78 66 65 72 25 |% ....+ | . xfer%|
|000009c0| 20 20 20 20 3a f2 63 6c | 69 63 6b 78 66 65 72 28 | :.cl|ickxfer(|
|000009d0| 62 75 74 74 6f 6e 25 2c | 69 63 6f 6e 25 29 0d 03 |button%,|icon%)..|
|000009e0| 98 2c 20 20 c9 20 6d 61 | 69 6e 77 25 20 20 20 3a |., . ma|inw% :|
|000009f0| f2 63 6c 69 63 6b 6d 61 | 69 6e 77 28 62 75 74 74 |.clickma|inw(butt|
|00000a00| 6f 6e 25 2c 69 63 6f 6e | 25 29 0d 03 a2 2d 20 20 |on%,icon|%)...- |
|00000a10| c9 20 77 6f 72 64 69 6e | 25 20 20 3a f2 63 6c 69 |. wordin|% :.cli|
|00000a20| 63 6b 77 6f 72 64 69 6e | 28 62 75 74 74 6f 6e 25 |ckwordin|(button%|
|00000a30| 2c 69 63 6f 6e 25 29 0d | 03 ac 2e 20 20 c9 20 2d |,icon%).|... . -|
|00000a40| 32 20 20 20 20 20 20 20 | 3a f2 63 6c 69 63 6b 69 |2 |:.clicki|
|00000a50| 63 6f 6e 62 61 72 28 62 | 75 74 74 6f 6e 25 2c 69 |conbar(b|utton%,i|
|00000a60| 63 6f 6e 25 29 0d 03 b6 | 05 cb 0d 03 c0 05 e1 0d |con%)...|........|
|00000a70| 03 ca 21 dd f2 63 6c 69 | 63 6b 69 63 6f 6e 62 61 |..!..cli|ckiconba|
|00000a80| 72 28 62 75 74 74 6f 6e | 25 2c 69 63 6f 6e 25 29 |r(button|%,icon%)|
|00000a90| 0d 03 d4 11 e7 20 69 63 | 6f 6e 25 3c 30 20 8c 20 |..... ic|on%<0 . |
|00000aa0| e1 0d 03 de 0a c8 8e 20 | b9 20 ca 0d 03 e8 11 20 |....... |. ..... |
|00000ab0| 20 c9 20 62 75 74 74 6f | 6e 25 3d 32 0d 03 f2 20 | . butto|n%=2... |
|00000ac0| 20 20 20 20 f4 20 6f 70 | 65 6e 73 20 74 68 65 20 | . op|ens the |
|00000ad0| 69 63 6f 6e 62 61 72 20 | 6d 65 6e 75 0d 03 fc 17 |iconbar |menu....|
|00000ae0| 20 20 20 20 e7 20 69 63 | 6f 6e 25 3d 73 69 63 6f | . ic|on%=sico|
|00000af0| 6e 20 8c 0d 04 06 15 20 | 20 20 20 20 20 f2 6d 65 |n ..... | .me|
|00000b00| 6e 75 5f 73 69 63 6f 6e | 0d 04 10 09 20 20 20 20 |nu_sicon|.... |
|00000b10| cd 0d 04 1a 11 20 20 c9 | 20 62 75 74 74 6f 6e 25 |..... .| button%|
|00000b20| 3d 34 0d 04 24 27 20 20 | 20 6f 70 65 6e 25 3d b9 |=4..$' | open%=.|
|00000b30| 3a f2 6f 70 65 6e 77 69 | 6e 64 6f 77 28 6d 61 69 |:.openwi|ndow(mai|
|00000b40| 6e 77 25 2c a3 2c 2d 31 | 29 0d 04 2e 05 cb 0d 04 |nw%,.,-1|).......|
|00000b50| 38 05 e1 0d 04 42 20 dd | f2 63 6c 69 63 6b 77 6f |8....B .|.clickwo|
|00000b60| 72 64 69 6e 28 62 75 74 | 74 6f 6e 25 2c 69 63 6f |rdin(but|ton%,ico|
|00000b70| 6e 25 29 0d 04 4c 26 20 | 61 61 24 3d 28 a4 69 63 |n%)..L& |aa$=(.ic|
|00000b80| 6f 6e 5f 67 65 74 64 61 | 74 61 28 71 25 2c 77 6f |on_getda|ta(q%,wo|
|00000b90| 72 64 69 6e 25 2c 30 29 | 29 0d 04 56 0e 20 e3 20 |rdin%,0)|)..V. . |
|00000ba0| 41 3d 30 20 b8 20 39 0d | 04 60 0b 20 c8 8e 20 b9 |A=0 . 9.|.`. .. .|
|00000bb0| 20 ca 0d 04 6a 27 20 c9 | 20 28 62 75 74 74 6f 6e | ...j' .| (button|
|00000bc0| 25 20 80 20 34 29 3d 34 | 3a 20 e7 20 41 3d 69 63 |% . 4)=4|: . A=ic|
|00000bd0| 6f 6e 25 20 6e 75 6d 3d | 41 0d 04 74 21 20 c9 20 |on% num=|A..t! . |
|00000be0| 62 75 74 74 6f 6e 25 3d | 31 3a 20 e7 20 41 3d 69 |button%=|1: . A=i|
|00000bf0| 63 6f 6e 25 20 6e 75 6d | 3d 41 0d 04 7e 06 20 cb |con% num|=A..~. .|
|00000c00| 0d 04 88 06 20 ed 0d 04 | 92 0b f2 69 6e 63 67 65 |.... ...|...incge|
|00000c10| 74 0d 04 9c 2f e7 20 6e | 75 6d 3d 39 20 3a 4e 75 |t.../. n|um=9 :Nu|
|00000c20| 6d 2b 3d 31 3a 77 6f 72 | 64 24 28 4e 75 6d 29 3d |m+=1:wor|d$(Num)=|
|00000c30| 61 61 24 2b 22 20 22 3a | f2 57 4f 52 44 47 45 54 |aa$+" ":|.WORDGET|
|00000c40| 0d 04 a6 05 e1 0d 04 b0 | 1f dd f2 63 6c 69 63 6b |........|...click|
|00000c50| 6d 61 69 6e 77 28 62 75 | 74 74 6f 6e 25 2c 69 63 |mainw(bu|tton%,ic|
|00000c60| 6f 6e 25 29 0d 04 ba 0f | e3 20 42 3d 30 20 b8 20 |on%)....|. B=0 . |
|00000c70| 32 32 34 0d 04 c4 0a c8 | 8e 20 b9 20 ca 0d 04 ce |224.....|. . ....|
|00000c80| 10 20 c9 20 62 75 74 74 | 6f 6e 25 3d 34 0d 04 d8 |. . butt|on%=4...|
|00000c90| 42 20 e7 20 69 63 6f 6e | 25 3d 42 20 3a 70 6f 73 |B . icon|%=B :pos|
|00000ca0| 25 3d 69 63 6f 6e 25 3a | 70 6f 73 78 25 3d 28 70 |%=icon%:|posx%=(p|
|00000cb0| 6f 73 25 29 83 28 31 35 | 29 2b 31 3a 70 6f 73 79 |os%).(15|)+1:posy|
|00000cc0| 25 3d 28 70 6f 73 25 29 | 81 28 31 35 29 2b 31 0d |%=(pos%)|.(15)+1.|
|00000cd0| 04 e2 05 cb 0d 04 ec 05 | ed 0d 04 f6 0a c8 8e 20 |........|....... |
|00000ce0| b9 20 ca 0d 05 00 11 20 | c9 20 20 62 75 74 74 6f |. ..... |. butto|
|00000cf0| 6e 25 3d 32 0d 05 0a 10 | 20 f2 6d 65 6e 75 5f 6d |n%=2....| .menu_m|
|00000d00| 61 69 6e 77 0d 05 14 05 | cb 0d 05 1e 05 e1 0d 05 |ainw....|........|
|00000d10| 28 1e dd f2 63 6c 69 63 | 6b 78 66 65 72 28 62 75 |(...clic|kxfer(bu|
|00000d20| 74 74 6f 6e 25 2c 69 63 | 6f 6e 25 29 0d 05 32 08 |tton%,ic|on%)..2.|
|00000d30| 74 25 3d 32 0d 05 3c 0a | c8 8e 20 b9 20 ca 0d 05 |t%=2..<.|.. . ...|
|00000d40| 46 1f c9 20 28 62 75 74 | 74 6f 6e 25 20 80 20 34 |F.. (but|ton% . 4|
|00000d50| 29 3d 34 20 80 20 69 63 | 6f 6e 25 3d 30 0d 05 50 |)=4 . ic|on%=0..P|
|00000d60| 29 20 f2 73 61 76 65 66 | 69 6c 65 28 a4 69 63 6f |) .savef|ile(.ico|
|00000d70| 6e 5f 67 65 74 64 61 74 | 61 28 71 25 2c 78 66 65 |n_getdat|a(q%,xfe|
|00000d80| 72 25 2c 32 29 29 0d 05 | 5a 1e 20 20 c8 99 20 22 |r%,2))..|Z. .. "|
|00000d90| 57 69 6d 70 5f 43 72 65 | 61 74 65 4d 65 6e 75 22 |Wimp_Cre|ateMenu"|
|00000da0| 2c 2c 2d 31 0d 05 64 1f | c9 20 28 62 75 74 74 6f |,,-1..d.|. (butto|
|00000db0| 6e 25 20 80 20 34 29 3d | 34 20 80 20 69 63 6f 6e |n% . 4)=|4 . icon|
|00000dc0| 25 3d 33 0d 05 6e 17 20 | 20 63 6c 61 69 6d 64 72 |%=3..n. | claimdr|
|00000dd0| 61 67 24 3d 22 78 66 65 | 72 22 0d 05 78 0f 20 20 |ag$="xfe|r"..x. |
|00000de0| 21 71 25 3d 78 66 65 72 | 25 0d 05 82 22 20 20 c8 |!q%=xfer|%..." .|
|00000df0| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00000e00| 77 53 74 61 74 65 22 2c | 2c 71 25 0d 05 8c 14 20 |wState",|,q%.... |
|00000e10| 20 77 65 78 3d 71 25 21 | 34 2d 71 25 21 32 30 0d | wex=q%!|4-q%!20.|
|00000e20| 05 96 15 20 20 77 65 79 | 3d 71 25 21 31 36 2d 71 |... wey|=q%!16-q|
|00000e30| 25 21 32 34 0d 05 a0 0c | 20 20 71 25 21 34 3d 33 |%!24....| q%!4=3|
|00000e40| 0d 05 aa 20 20 20 c8 99 | 20 22 57 69 6d 70 5f 47 |... ..| "Wimp_G|
|00000e50| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 71 25 |etIconSt|ate",,q%|
|00000e60| 0d 05 b4 16 20 20 21 71 | 25 3d 78 66 65 72 25 3a |.... !q|%=xfer%:|
|00000e70| 71 25 21 34 3d 35 0d 05 | be 13 20 20 71 25 21 38 |q%!4=5..|.. q%!8|
|00000e80| 3d 71 25 21 38 2b 77 65 | 78 0d 05 c8 15 20 20 71 |=q%!8+we|x.... q|
|00000e90| 25 21 31 32 3d 71 25 21 | 31 32 2b 77 65 79 0d 05 |%!12=q%!|12+wey..|
|00000ea0| d2 15 20 20 71 25 21 31 | 36 3d 71 25 21 31 36 2b |.. q%!1|6=q%!16+|
|00000eb0| 77 65 78 0d 05 dc 15 20 | 20 71 25 21 32 30 3d 71 |wex.... | q%!20=q|
|00000ec0| 25 21 32 30 2b 77 65 79 | 0d 05 e6 15 20 20 71 25 |%!20+wey|.... q%|
|00000ed0| 21 32 34 3d 30 3a 71 25 | 21 32 38 3d 30 0d 05 f0 |!24=0:q%|!28=0...|
|00000ee0| 25 20 20 71 25 21 33 32 | 3d 26 37 46 46 46 46 46 |% q%!32|=&7FFFFF|
|00000ef0| 46 46 3a 71 25 21 33 36 | 3d 26 37 46 46 46 46 46 |FF:q%!36|=&7FFFFF|
|00000f00| 46 46 0d 05 fa 1b 20 20 | c8 99 20 22 57 69 6d 70 |FF.... |.. "Wimp|
|00000f10| 5f 44 72 61 67 42 6f 78 | 22 2c 2c 71 25 0d 06 04 |_DragBox|",,q%...|
|00000f20| 05 cb 0d 06 0e 05 e1 0d | 06 18 18 dd f2 64 6f 5f |........|.....do_|
|00000f30| 62 61 63 6b 67 72 6f 75 | 6e 64 5f 74 61 73 6b 0d |backgrou|nd_task.|
|00000f40| 06 22 05 e1 0d 06 2c 1b | dd f2 72 65 64 72 61 77 |."....,.|..redraw|
|00000f50| 77 69 6e 64 6f 77 28 68 | 61 6e 64 6c 65 25 29 0d |window(h|andle%).|
|00000f60| 06 36 0b ea 20 76 6f 69 | 64 25 0d 06 40 10 71 25 |.6.. voi|d%..@.q%|
|00000f70| 21 30 3d 68 61 6e 64 6c | 65 25 0d 06 4a 27 c8 99 |!0=handl|e%..J'..|
|00000f80| 20 22 57 69 6d 70 5f 52 | 65 64 72 61 77 57 69 6e | "Wimp_R|edrawWin|
|00000f90| 64 6f 77 22 2c 30 2c 71 | 25 20 b8 20 6d 6f 72 65 |dow",0,q|% . more|
|00000fa0| 25 0d 06 54 1c f2 6c 77 | 61 6f 72 69 67 69 6e 28 |%..T..lw|aorigin(|
|00000fb0| 71 25 2b 34 2c 78 30 25 | 2c 79 30 25 29 0d 06 5e |q%+4,x0%|,y0%)..^|
|00000fc0| 0c c8 95 20 6d 6f 72 65 | 25 0d 06 68 0e 20 20 f2 |... more|%..h. .|
|00000fd0| 6e 65 77 76 61 6c 73 0d | 06 72 12 20 20 c8 8e 20 |newvals.|.r. .. |
|00000fe0| 68 61 6e 64 6c 65 25 20 | ca 0d 06 7c 07 20 20 cb |handle% |...|. .|
|00000ff0| 0d 06 86 29 20 20 c8 99 | 20 22 57 69 6d 70 5f 47 |...) ..| "Wimp_G|
|00001000| 65 74 52 65 63 74 61 6e | 67 6c 65 22 2c 30 2c 71 |etRectan|gle",0,q|
|00001010| 25 20 b8 20 6d 6f 72 65 | 25 0d 06 90 05 ce 0d 06 |% . more|%.......|
|00001020| 9a 05 e1 0d 06 a4 19 dd | a4 6f 6b 74 6f 63 6c 6f |........|.oktoclo|
|00001030| 73 65 77 28 68 61 6e 64 | 6c 65 25 29 0d 06 ae 0f |sew(hand|le%)....|
|00001040| ea 20 73 68 75 74 74 69 | 6e 67 25 0d 06 b8 0f 73 |. shutti|ng%....s|
|00001050| 68 75 74 74 69 6e 67 25 | 3d b9 0d 06 c2 0e 3d 73 |hutting%|=.....=s|
|00001060| 68 75 74 74 69 6e 67 25 | 0d 06 cc 0e dd f2 6b 65 |hutting%|......ke|
|00001070| 79 70 72 65 73 73 0d 06 | d6 09 ea 20 69 63 25 0d |ypress..|... ic%.|
|00001080| 06 e0 10 e7 20 71 25 21 | 34 3c 3e 2d 31 20 8c 0d |.... q%!|4<>-1 ..|
|00001090| 06 ea 29 20 20 c8 99 20 | 22 57 69 6d 70 5f 47 65 |..) .. |"Wimp_Ge|
|000010a0| 74 43 61 72 65 74 50 6f | 73 69 74 69 6f 6e 22 2c |tCaretPo|sition",|
|000010b0| 2c 6d 73 67 62 6c 6b 25 | 0d 06 f4 13 20 20 69 63 |,msgblk%|.... ic|
|000010c0| 25 3d 6d 73 67 62 6c 6b | 25 21 34 0d 06 fe 10 20 |%=msgblk|%!4.... |
|000010d0| 20 c8 8e 20 71 25 21 32 | 34 20 ca 0d 07 08 27 20 | .. q%!2|4 ....' |
|000010e0| 20 20 20 c9 20 32 37 20 | 8c 20 c8 99 20 22 57 69 | . 27 |. .. "Wi|
|000010f0| 6d 70 5f 43 72 65 61 74 | 65 4d 65 6e 75 22 2c 2c |mp_Creat|eMenu",,|
|00001100| 2d 31 0d 07 12 07 20 20 | 7f 0d 07 1c 10 20 20 20 |-1.... |..... |
|00001110| c8 8e 20 71 25 21 30 20 | ca 0d 07 26 2d 20 20 20 |.. q%!0 |...&- |
|00001120| 20 c9 20 6d 61 69 6e 77 | 25 20 20 3a f2 6b 65 79 | . mainw|% :.key|
|00001130| 70 72 65 73 73 5f 6d 61 | 69 6e 77 28 69 63 25 2c |press_ma|inw(ic%,|
|00001140| 71 25 21 32 34 29 0d 07 | 30 2e 20 20 20 20 c9 20 |q%!24)..|0. . |
|00001150| 77 6f 72 64 69 6e 25 20 | 3a f2 6b 65 79 70 72 65 |wordin% |:.keypre|
|00001160| 73 73 5f 77 6f 72 64 69 | 6e 28 69 63 25 2c 71 25 |ss_wordi|n(ic%,q%|
|00001170| 21 32 34 29 0d 07 3a 09 | 20 20 20 20 cb 0d 07 44 |!24)..:.| ...D|
|00001180| 07 20 20 cb 0d 07 4e 05 | cd 0d 07 58 05 e1 0d 07 |. ...N.|...X....|
|00001190| 62 16 dd a4 6d 65 6e 75 | 73 65 6c 65 63 74 5f 73 |b...menu|select_s|
|000011a0| 69 63 6f 6e 0d 07 6c 14 | ea 20 6c 65 76 65 6c 30 |icon..l.|. level0|
|000011b0| 2c 62 75 74 74 6f 6e 25 | 0d 07 76 0f 6c 65 76 65 |,button%|..v.leve|
|000011c0| 6c 30 3d 71 25 21 30 0d | 07 80 20 c8 99 20 22 57 |l0=q%!0.|.. .. "W|
|000011d0| 69 6d 70 5f 47 65 74 50 | 6f 69 6e 74 65 72 49 6e |imp_GetP|ointerIn|
|000011e0| 66 6f 22 2c 2c 71 25 0d | 07 8a 10 62 75 74 74 6f |fo",,q%.|...butto|
|000011f0| 6e 25 3d 71 25 21 38 0d | 07 94 0f c8 8e 20 6c 65 |n%=q%!8.|..... le|
|00001200| 76 65 6c 30 20 ca 0d 07 | 9e 09 20 20 c9 20 30 0d |vel0 ...|.. . 0.|
|00001210| 07 a8 09 20 20 c9 20 31 | 0d 07 b2 13 20 20 63 6c |... . 1|.... cl|
|00001220| 6f 73 65 64 6f 77 6e 20 | 3d 20 b9 0d 07 bc 05 cb |osedown |= ......|
|00001230| 0d 07 c6 06 3d 30 0d 07 | d0 16 dd a4 6d 65 6e 75 |....=0..|....menu|
|00001240| 73 65 6c 65 63 74 5f 6d | 61 69 6e 77 0d 07 da 1b |select_m|ainw....|
|00001250| ea 20 6c 65 76 65 6c 30 | 2c 6c 65 76 65 6c 31 2c |. level0|,level1,|
|00001260| 62 75 74 74 6f 6e 25 0d | 07 e4 0f 6c 65 76 65 6c |button%.|...level|
|00001270| 30 3d 71 25 21 30 0d 07 | ee 0f 6c 65 76 65 6c 31 |0=q%!0..|..level1|
|00001280| 3d 71 25 21 34 0d 07 f8 | 20 c8 99 20 22 57 69 6d |=q%!4...| .. "Wim|
|00001290| 70 5f 47 65 74 50 6f 69 | 6e 74 65 72 49 6e 66 6f |p_GetPoi|nterInfo|
|000012a0| 22 2c 2c 71 25 0d 08 02 | 10 62 75 74 74 6f 6e 25 |",,q%...|.button%|
|000012b0| 3d 71 25 21 38 0d 08 0c | 0f c8 8e 20 6c 65 76 65 |=q%!8...|... leve|
|000012c0| 6c 30 20 ca 0d 08 16 09 | 20 20 c9 20 30 0d 08 20 |l0 .....| . 0.. |
|000012d0| 09 20 20 c9 20 31 0d 08 | 2a 09 20 20 c9 20 32 0d |. . 1..|*. . 2.|
|000012e0| 08 34 09 20 20 c9 20 33 | 0d 08 3e 0b 20 20 f2 66 |.4. . 3|..>. .f|
|000012f0| 69 6c 6c 0d 08 48 09 20 | 20 c9 20 34 0d 08 52 12 |ill..H. | . 4..R.|
|00001300| 20 63 6c 6f 73 65 64 6f | 77 6e 20 3d 20 b9 0d 08 | closedo|wn = ...|
|00001310| 5c 05 cb 0d 08 66 06 3d | 30 0d 08 70 10 dd f2 6d |\....f.=|0..p...m|
|00001320| 65 6e 75 5f 6d 61 69 6e | 77 0d 08 7a 08 ea 20 6e |enu_main|w..z.. n|
|00001330| 6f 0d 08 84 11 6e 6f 3d | 30 3a c8 97 20 78 2c 79 |o....no=|0:.. x,y|
|00001340| 2c 62 0d 08 8e 3d f2 64 | 65 66 69 6e 65 5f 6d 65 |,b...=.d|efine_me|
|00001350| 6e 75 5f 74 65 78 74 28 | 22 49 6e 66 6f 22 2c 6e |nu_text(|"Info",n|
|00001360| 6f 2c 30 2c 30 2c 30 2c | 30 2c 26 31 30 30 32 31 |o,0,0,0,|0,&10021|
|00001370| 2c 69 6e 66 6f 25 2c 30 | 29 3a 6e 6f 2b 3d 31 0d |,info%,0|):no+=1.|
|00001380| 08 98 3d f2 64 65 66 69 | 6e 65 5f 6d 65 6e 75 5f |..=.defi|ne_menu_|
|00001390| 74 65 78 74 28 22 53 61 | 76 65 22 2c 6e 6f 2c 30 |text("Sa|ve",no,0|
|000013a0| 2c 30 2c 30 2c 30 2c 26 | 31 30 30 32 31 2c 78 66 |,0,0,0,&|10021,xf|
|000013b0| 65 72 25 2c 30 29 3a 6e | 6f 2b 3d 31 0d 08 a2 46 |er%,0):n|o+=1...F|
|000013c0| f2 64 65 66 69 6e 65 5f | 6d 65 6e 75 5f 74 65 78 |.define_|menu_tex|
|000013d0| 74 28 22 45 6e 74 65 72 | 20 57 6f 72 64 73 22 2c |t("Enter| Words",|
|000013e0| 6e 6f 2c 30 2c 30 2c 30 | 2c 30 2c 26 31 30 30 32 |no,0,0,0|,0,&1002|
|000013f0| 31 2c 77 6f 72 64 69 6e | 25 2c 30 29 3a 6e 6f 2b |1,wordin|%,0):no+|
|00001400| 3d 31 0d 08 ac 40 f2 64 | 65 66 69 6e 65 5f 6d 65 |=1...@.d|efine_me|
|00001410| 6e 75 5f 74 65 78 74 28 | 22 46 69 6c 6c 20 53 71 |nu_text(|"Fill Sq|
|00001420| 75 61 72 65 22 2c 6e 6f | 2c 30 2c 30 2c 30 2c 30 |uare",no|,0,0,0,0|
|00001430| 2c 26 31 30 30 32 31 2c | 30 2c 30 29 3a 6e 6f 2b |,&10021,|0,0):no+|
|00001440| 3d 31 0d 08 b6 3a f2 64 | 65 66 69 6e 65 5f 6d 65 |=1...:.d|efine_me|
|00001450| 6e 75 5f 74 65 78 74 28 | 22 51 75 69 74 22 2c 6e |nu_text(|"Quit",n|
|00001460| 6f 2c 30 2c 30 2c 30 2c | 30 2c 26 31 30 30 32 31 |o,0,0,0,|0,&10021|
|00001470| 2c 30 2c 2d 31 29 3a 6e | 6f 2b 3d 31 0d 08 c0 05 |,0,-1):n|o+=1....|
|00001480| f4 0d 08 ca 2c f2 63 72 | 65 61 74 65 5f 6d 65 6e |....,.cr|eate_men|
|00001490| 75 28 22 57 6f 72 64 53 | 65 61 72 63 68 22 2c 6e |u("WordS|earch",n|
|000014a0| 6f 2c 32 31 30 2c 78 2d | 36 34 2c 79 29 0d 08 d4 |o,210,x-|64,y)...|
|000014b0| 0e 6d 65 6e 75 5f 6e 72 | 25 3d 30 0d 08 de 16 63 |.menu_nr|%=0....c|
|000014c0| 6c 61 69 6d 6d 65 6e 75 | 24 3d 22 6d 61 69 6e 77 |laimmenu|$="mainw|
|000014d0| 22 0d 08 e8 05 e1 0d 08 | f2 10 dd f2 6d 65 6e 75 |".......|....menu|
|000014e0| 5f 73 69 63 6f 6e 0d 08 | fc 11 6e 6f 3d 30 3a c8 |_sicon..|..no=0:.|
|000014f0| 97 20 78 2c 79 2c 62 0d | 09 06 3d f2 64 65 66 69 |. x,y,b.|..=.defi|
|00001500| 6e 65 5f 6d 65 6e 75 5f | 74 65 78 74 28 22 49 6e |ne_menu_|text("In|
|00001510| 66 6f 22 2c 6e 6f 2c 30 | 2c 30 2c 30 2c 30 2c 26 |fo",no,0|,0,0,0,&|
|00001520| 31 30 30 32 31 2c 69 6e | 66 6f 25 2c 30 29 3a 6e |10021,in|fo%,0):n|
|00001530| 6f 2b 3d 31 0d 09 10 3a | f2 64 65 66 69 6e 65 5f |o+=1...:|.define_|
|00001540| 6d 65 6e 75 5f 74 65 78 | 74 28 22 51 75 69 74 22 |menu_tex|t("Quit"|
|00001550| 2c 6e 6f 2c 30 2c 30 2c | 30 2c 30 2c 26 31 30 30 |,no,0,0,|0,0,&100|
|00001560| 32 31 2c 30 2c 2d 31 29 | 3a 6e 6f 2b 3d 31 0d 09 |21,0,-1)|:no+=1..|
|00001570| 1a 32 f2 63 72 65 61 74 | 65 5f 6d 65 6e 75 28 22 |.2.creat|e_menu("|
|00001580| 57 53 65 61 72 63 68 22 | 2c 6e 6f 2c 32 31 30 2c |WSearch"|,no,210,|
|00001590| 78 2d 36 34 2c 39 36 2b | 28 6e 6f 2a 34 30 29 29 |x-64,96+|(no*40))|
|000015a0| 0d 09 24 0e 6d 65 6e 75 | 5f 6e 72 25 3d 30 0d 09 |..$.menu|_nr%=0..|
|000015b0| 2e 15 63 6c 61 69 6d 6d | 65 6e 75 24 3d 22 78 66 |..claimm|enu$="xf|
|000015c0| 65 72 22 0d 09 38 05 e1 | 0d 09 42 16 dd f2 77 68 |er"..8..|..B...wh|
|000015d0| 69 63 68 6d 65 6e 75 28 | 6d 65 6e 75 24 29 0d 09 |ichmenu(|menu$)..|
|000015e0| 4c 0b ea 20 76 6f 69 64 | 25 0d 09 56 0e c8 8e 20 |L.. void|%..V... |
|000015f0| 6d 65 6e 75 24 20 ca 0d | 09 60 28 20 20 c9 20 22 |menu$ ..|.`( . "|
|00001600| 6d 61 69 6e 77 22 20 3a | 76 6f 69 64 25 3d a4 6d |mainw" :|void%=.m|
|00001610| 65 6e 75 73 65 6c 65 63 | 74 5f 6d 61 69 6e 77 0d |enuselec|t_mainw.|
|00001620| 09 6a 28 20 20 c9 20 22 | 78 66 65 72 22 20 20 3a |.j( . "|xfer" :|
|00001630| 76 6f 69 64 25 3d a4 6d | 65 6e 75 73 65 6c 65 63 |void%=.m|enuselec|
|00001640| 74 5f 73 69 63 6f 6e 0d | 09 74 05 cb 0d 09 7e 05 |t_sicon.|.t....~.|
|00001650| e1 0d 09 88 12 dd f2 66 | 69 6c 65 5f 63 68 61 6e |.......f|ile_chan|
|00001660| 67 65 64 0d 09 92 05 e1 | 0d 09 9c 13 dd a4 75 73 |ged.....|......us|
|00001670| 65 72 64 72 61 67 5f 78 | 66 65 72 0d 09 a6 25 c8 |erdrag_x|fer...%.|
|00001680| 99 20 22 57 69 6d 70 5f | 47 65 74 50 6f 69 6e 74 |. "Wimp_|GetPoint|
|00001690| 65 72 49 6e 66 6f 22 2c | 2c 6d 73 67 62 6c 6b 25 |erInfo",|,msgblk%|
|000016a0| 0d 09 b0 1e 6d 73 67 62 | 6c 6b 25 21 32 30 3d 36 |....msgb|lk%!20=6|
|000016b0| 34 3a 6d 73 67 62 6c 6b | 25 21 33 32 3d 30 0d 09 |4:msgblk|%!32=0..|
|000016c0| ba 26 6d 73 67 62 6c 6b | 25 21 33 36 3d 31 3a 6d |.&msgblk|%!36=1:m|
|000016d0| 73 67 62 6c 6b 25 21 34 | 30 3d 6d 73 67 62 6c 6b |sgblk%!4|0=msgblk|
|000016e0| 25 21 31 32 0d 09 c4 19 | 6d 73 67 62 6c 6b 25 21 |%!12....|msgblk%!|
|000016f0| 34 34 3d 6d 73 67 62 6c | 6b 25 21 31 36 0d 09 ce |44=msgbl|k%!16...|
|00001700| 17 6d 73 67 62 6c 6b 25 | 21 34 38 3d 21 6d 73 67 |.msgblk%|!48=!msg|
|00001710| 62 6c 6b 25 0d 09 d8 18 | 6d 73 67 62 6c 6b 25 21 |blk%....|msgblk%!|
|00001720| 35 32 3d 6d 73 67 62 6c | 6b 25 21 34 0d 09 e2 26 |52=msgbl|k%!4...&|
|00001730| 6d 73 67 62 6c 6b 25 21 | 35 36 3d 26 31 30 30 30 |msgblk%!|56=&1000|
|00001740| 20 3a f4 20 64 61 74 61 | 20 66 69 6c 65 20 73 69 | :. data| file si|
|00001750| 7a 65 0d 09 ec 37 6d 73 | 67 62 6c 6b 25 21 36 30 |ze...7ms|gblk%!60|
|00001760| 3d 6d 79 5f 66 69 6c 65 | 74 79 70 65 25 20 3a f4 |=my_file|type% :.|
|00001770| 20 66 69 6c 65 20 74 79 | 70 65 20 66 6f 72 20 73 | file ty|pe for s|
|00001780| 61 76 65 64 20 66 69 6c | 65 0d 09 f6 32 24 28 6d |aved fil|e...2$(m|
|00001790| 73 67 62 6c 6b 25 2b 36 | 34 29 3d a4 6c 65 61 66 |sgblk%+6|4)=.leaf|
|000017a0| 28 a4 69 63 6f 6e 5f 67 | 65 74 64 61 74 61 28 71 |(.icon_g|etdata(q|
|000017b0| 25 2c 78 66 65 72 25 2c | 32 29 29 0d 0a 00 3d c8 |%,xfer%,|2))...=.|
|000017c0| 99 20 22 57 69 6d 70 5f | 53 65 6e 64 4d 65 73 73 |. "Wimp_|SendMess|
|000017d0| 61 67 65 22 2c 31 37 2c | 6d 73 67 62 6c 6b 25 2b |age",17,|msgblk%+|
|000017e0| 32 30 2c 6d 73 67 62 6c | 6b 25 21 31 32 2c 6d 73 |20,msgbl|k%!12,ms|
|000017f0| 67 62 6c 6b 25 21 31 36 | 0d 0a 0a 06 3d 30 0d 0a |gblk%!16|....=0..|
|00001800| 14 04 0d 0a 1e 11 dd f2 | 64 61 74 61 73 61 76 65 |........|datasave|
|00001810| 28 62 29 0d 0a 28 28 f4 | 49 46 74 25 3d 31 20 50 |(b)..((.|IFt%=1 P|
|00001820| 52 4f 43 74 65 78 74 28 | 46 4e 67 6e 61 6d 65 28 |ROCtext(|FNgname(|
|00001830| 62 2b 34 34 29 29 20 45 | 4c 53 45 0d 0a 2d 1b f2 |b+44)) E|LSE..-..|
|00001840| 73 61 76 65 66 69 6c 65 | 28 a4 67 6e 61 6d 65 28 |savefile|(.gname(|
|00001850| 62 2b 34 34 29 29 0d 0a | 32 19 62 21 31 32 3d 62 |b+44))..|2.b!12=b|
|00001860| 21 38 3a 62 21 31 36 3d | 33 3a 21 62 3d 36 34 0d |!8:b!16=|3:!b=64.|
|00001870| 0a 3c 2a f4 53 59 53 20 | 22 57 69 6d 70 5f 53 65 |.<*.SYS |"Wimp_Se|
|00001880| 6e 64 4d 65 73 73 61 67 | 65 22 2c 31 37 2c 62 2c |ndMessag|e",17,b,|
|00001890| 62 21 32 30 2c 62 21 32 | 34 0d 0a 46 1c c8 99 20 |b!20,b!2|4..F... |
|000018a0| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 4d 65 6e 75 |"Wimp_Cr|eateMenu|
|000018b0| 22 2c 2c 2d 31 0d 0a 50 | 05 e1 0d 0a 5a 11 dd f2 |",,-1..P|....Z...|
|000018c0| 64 61 74 61 6c 6f 61 64 | 28 62 29 0d 0a 64 0d c8 |dataload|(b)..d..|
|000018d0| 8e 20 62 21 34 30 20 ca | 0d 0a 6e 14 20 20 c9 20 |. b!40 .|..n. . |
|000018e0| 6d 79 5f 66 69 6c 65 74 | 79 70 65 25 0d 0a 78 19 |my_filet|ype%..x.|
|000018f0| 20 20 20 20 c8 99 20 22 | 48 6f 75 72 67 6c 61 73 | .. "|Hourglas|
|00001900| 73 5f 4f 6e 22 0d 0a 82 | 19 20 20 20 46 49 4c 45 |s_On"...|. FILE|
|00001910| 24 3d a4 67 6e 61 6d 65 | 28 62 2b 34 34 29 0d 0a |$=.gname|(b+44)..|
|00001920| 8c 27 20 20 f2 69 63 6f | 6e 5f 70 75 74 64 61 74 |.' .ico|n_putdat|
|00001930| 61 28 71 25 2c 78 66 65 | 72 25 2c 32 2c 46 49 4c |a(q%,xfe|r%,2,FIL|
|00001940| 45 24 2c 30 29 0d 0a 96 | 11 20 20 20 20 f2 6c 6f |E$,0)...|. .lo|
|00001950| 61 64 66 69 6c 65 0d 0a | a0 1a 20 20 20 20 c8 99 |adfile..|.. ..|
|00001960| 20 22 48 6f 75 72 67 6c | 61 73 73 5f 4f 66 66 22 | "Hourgl|ass_Off"|
|00001970| 0d 0a aa 07 20 20 cb 0d | 0a be 05 e1 0d 0a c8 15 |.... ..|........|
|00001980| dd f2 73 61 76 65 66 69 | 6c 65 28 46 49 4c 45 24 |..savefi|le(FILE$|
|00001990| 29 0d 0a d2 1a e3 20 41 | 3d 20 30 20 b8 20 31 34 |)..... A|= 0 . 14|
|000019a0| 3a 42 24 28 41 29 3d 22 | 22 3a ed 0d 0a dc 0f e3 |:B$(A)="|":......|
|000019b0| 20 42 3d 20 30 20 b8 20 | 31 34 0d 0a e6 0f e3 20 | B= 0 . |14..... |
|000019c0| 41 3d 20 30 20 b8 20 31 | 34 0d 0a f0 37 42 24 28 |A= 0 . 1|4...7B$(|
|000019d0| 42 29 3d 42 24 28 42 29 | 2b 28 a4 69 63 6f 6e 5f |B)=B$(B)|+(.icon_|
|000019e0| 67 65 74 64 61 74 61 28 | 71 25 2c 6d 61 69 6e 77 |getdata(|q%,mainw|
|000019f0| 25 2c 41 2b 31 35 2a 42 | 29 29 2b 22 20 20 20 22 |%,A+15*B|))+" "|
|00001a00| 0d 0a fa 05 ed 0d 0b 04 | 17 42 24 28 42 29 3d 42 |........|.B$(B)=B|
|00001a10| 24 28 42 29 2b bd 31 30 | 2b bd 31 30 0d 0b 0e 05 |$(B)+.10|+.10....|
|00001a20| ed 0d 0b 18 0a 2a 46 58 | 33 2c 32 0d 0b 22 13 ff |.....*FX|3,2.."..|
|00001a30| 22 53 50 4f 4f 4c 20 22 | 2b 46 49 4c 45 24 0d 0b |"SPOOL "|+FILE$..|
|00001a40| 2c 0f e3 20 41 3d 20 30 | 20 b8 20 31 35 0d 0b 36 |,.. A= 0| . 15..6|
|00001a50| 0b f1 42 24 28 41 29 3b | 0d 0b 40 05 ed 0d 0b 4a |..B$(A);|..@....J|
|00001a60| 1d e3 20 41 3d 20 31 20 | b8 20 4e 75 6d 3a f1 77 |.. A= 1 |. Num:.w|
|00001a70| 6f 72 64 24 28 41 29 3b | 3a ed 0d 0b 54 0a 2a 53 |ord$(A);|:...T.*S|
|00001a80| 50 4f 4f 4c 0d 0b 5e 0a | 2a 46 58 33 2c 30 0d 0b |POOL..^.|*FX3,0..|
|00001a90| 68 1d ff 22 53 65 74 54 | 79 70 65 20 22 2b 46 49 |h.."SetT|ype "+FI|
|00001aa0| 4c 45 24 2b 22 20 26 46 | 46 46 22 0d 0b 72 17 f2 |LE$+" &F|FF"..r..|
|00001ab0| 63 6c 6f 73 65 77 69 6e | 64 6f 77 28 78 66 65 72 |closewin|dow(xfer|
|00001ac0| 25 29 0d 0b 7c 05 e1 0d | 0b 86 0e dd f2 6c 6f 61 |%)..|...|.....loa|
|00001ad0| 64 66 69 6c 65 0d 0b 90 | 08 41 3d 2d 31 0d 0b 9a |dfile...|.A=-1...|
|00001ae0| 0f 58 3d 8e 20 28 46 49 | 4c 45 24 29 0d 0b a4 0a |.X=. (FI|LE$)....|
|00001af0| f5 3a 41 2b 3d 31 0d 0b | ae 1a 41 28 41 29 3d 9a |.:A+=1..|..A(A)=.|
|00001b00| 23 58 3a 41 24 28 41 29 | 3d bd 28 41 28 41 29 29 |#X:A$(A)|=.(A(A))|
|00001b10| 0d 0b b8 1b e7 20 41 24 | 28 41 29 3d 22 20 22 3a |..... A$|(A)=" ":|
|00001b20| 41 3d 41 2d 31 3a e5 8d | 64 56 4b 0d 0b c2 19 e7 |A=A-1:..|dVK.....|
|00001b30| 20 41 28 41 29 3d 31 30 | 3a 41 3d 41 2d 31 3a e5 | A(A)=10|:A=A-1:.|
|00001b40| 8d 64 56 4b 0d 0b cc 26 | f2 69 63 6f 6e 5f 70 75 |.dVK...&|.icon_pu|
|00001b50| 74 64 61 74 61 28 71 25 | 2c 6d 61 69 6e 77 25 2c |tdata(q%|,mainw%,|
|00001b60| 41 2c 41 24 28 41 29 2c | 30 29 0d 0b d6 0b fd 20 |A,A$(A),|0)..... |
|00001b70| 41 3d 32 32 34 0d 0b e0 | 12 4e 75 6d 3d 30 3a f5 |A=224...|.Num=0:.|
|00001b80| 3a 4e 75 6d 2b 3d 31 0d | 0b ea 30 f5 3a 51 24 3d |:Num+=1.|..0.:Q$=|
|00001b90| bd 28 9a 23 58 29 3a 77 | 6f 72 64 24 28 4e 75 6d |.(.#X):w|ord$(Num|
|00001ba0| 29 3d 77 6f 72 64 24 28 | 4e 75 6d 29 2b 51 24 3a |)=word$(|Num)+Q$:|
|00001bb0| fd 51 24 3d 22 20 22 0d | 0b f4 09 fd 20 c5 23 58 |.Q$=" ".|.... .#X|
|00001bc0| 0d 0b fe 07 d9 23 58 0d | 0c 08 17 f2 72 65 64 72 |.....#X.|....redr|
|00001bd0| 61 77 77 69 6e 64 6f 77 | 28 71 25 21 30 29 0d 0c |awwindow|(q%!0)..|
|00001be0| 12 05 e1 0d 0c 1c 26 dd | f2 6f 70 65 6e 77 69 6e |......&.|.openwin|
|00001bf0| 64 6f 77 28 68 61 6e 64 | 6c 65 25 2c 66 75 6c 6c |dow(hand|le%,full|
|00001c00| 25 2c 66 72 6f 6e 74 25 | 29 0d 0c 26 10 71 25 21 |%,front%|)..&.q%!|
|00001c10| 30 3d 68 61 6e 64 6c 65 | 25 0d 0c 30 2d e7 20 ac |0=handle|%..0-. .|
|00001c20| 20 66 75 6c 6c 25 20 8c | 20 c8 99 20 22 57 69 6d | full% .| .. "Wim|
|00001c30| 70 5f 47 65 74 57 69 6e | 64 6f 77 53 74 61 74 65 |p_GetWin|dowState|
|00001c40| 22 2c 30 2c 71 25 0d 0c | 3a 17 e7 20 66 72 6f 6e |",0,q%..|:.. fron|
|00001c50| 74 25 20 8c 20 71 25 21 | 32 38 3d 2d 31 0d 0c 44 |t% . q%!|28=-1..D|
|00001c60| 1d c8 99 20 22 57 69 6d | 70 5f 4f 70 65 6e 57 69 |... "Wim|p_OpenWi|
|00001c70| 6e 64 6f 77 22 2c 30 2c | 71 25 0d 0c 4e 05 e1 0d |ndow",0,|q%..N...|
|00001c80| 0c 58 1a dd f2 63 6c 6f | 73 65 77 69 6e 64 6f 77 |.X...clo|sewindow|
|00001c90| 28 68 61 6e 64 6c 65 25 | 29 0d 0c 62 1c e7 20 a4 |(handle%|)..b.. .|
|00001ca0| 6f 6b 74 6f 63 6c 6f 73 | 65 77 28 68 61 6e 64 6c |oktoclos|ew(handl|
|00001cb0| 65 25 29 20 8c 0d 0c 6c | 12 20 20 71 25 21 30 3d |e%) ...l|. q%!0=|
|00001cc0| 68 61 6e 64 6c 65 25 0d | 0c 76 20 20 20 c8 99 20 |handle%.|.v .. |
|00001cd0| 22 57 69 6d 70 5f 43 6c | 6f 73 65 57 69 6e 64 6f |"Wimp_Cl|oseWindo|
|00001ce0| 77 22 2c 30 2c 71 25 0d | 0c 80 05 cd 0d 0c 8a 05 |w",0,q%.|........|
|00001cf0| e1 0d 0c 94 11 dd a4 70 | 6f 6c 6c 28 6d 61 73 6b |.......p|oll(mask|
|00001d00| 25 29 0d 0c 9e 20 c8 99 | 20 22 57 69 6d 70 5f 50 |%)... ..| "Wimp_P|
|00001d10| 6f 6c 6c 22 2c 6d 61 73 | 6b 25 2c 71 25 20 b8 20 |oll",mas|k%,q% . |
|00001d20| 61 25 0d 0c a8 07 3d 61 | 25 0d 0c b2 13 dd f2 61 |a%....=a|%......a|
|00001d30| 63 74 69 6f 6e 28 65 76 | 6e 74 25 29 0d 0c bc 0e |ction(ev|nt%)....|
|00001d40| c8 8e 20 65 76 6e 74 25 | 20 ca 0d 0c c6 1d 20 20 |.. evnt%| ..... |
|00001d50| c9 20 30 3a f2 64 6f 5f | 62 61 63 6b 67 72 6f 75 |. 0:.do_|backgrou|
|00001d60| 6e 64 5f 74 61 73 6b 0d | 0c d0 1d 20 20 c9 20 31 |nd_task.|... . 1|
|00001d70| 3a f2 72 65 64 72 61 77 | 77 69 6e 64 6f 77 28 71 |:.redraw|window(q|
|00001d80| 25 21 30 29 0d 0c da 1f | 20 20 c9 20 32 3a f2 6f |%!0)....| . 2:.o|
|00001d90| 70 65 6e 77 69 6e 64 6f | 77 28 71 25 21 30 2c b9 |penwindo|w(q%!0,.|
|00001da0| 2c 30 29 0d 0c e4 1c 20 | 20 c9 20 33 3a f2 63 6c |,0).... | . 3:.cl|
|00001db0| 6f 73 65 77 69 6e 64 6f | 77 28 71 25 21 30 29 0d |osewindo|w(q%!0).|
|00001dc0| 0c ee 0a 20 20 c9 20 34 | 3a 0d 0c f8 0a 20 20 c9 |... . 4|:.... .|
|00001dd0| 20 35 3a 0d 0d 02 37 20 | 20 c9 20 36 3a f2 63 6c | 5:...7 | . 6:.cl|
|00001de0| 69 63 6b 77 69 6e 64 6f | 77 28 21 71 25 2c 71 25 |ickwindo|w(!q%,q%|
|00001df0| 21 34 2c 71 25 21 38 2c | 71 25 21 31 32 2c 71 25 |!4,q%!8,|q%!12,q%|
|00001e00| 21 31 36 2c 71 25 21 32 | 30 29 0d 0d 0c 3d 20 20 |!16,q%!2|0)...= |
|00001e10| c9 20 37 3a e7 20 63 6c | 61 69 6d 64 72 61 67 24 |. 7:. cl|aimdrag$|
|00001e20| 3c 3e 22 22 20 8c 20 6a | 75 6e 6b 3d a0 28 22 46 |<>"" . j|unk=.("F|
|00001e30| 4e 75 73 65 72 64 72 61 | 67 5f 22 2b 63 6c 61 69 |Nuserdra|g_"+clai|
|00001e40| 6d 64 72 61 67 24 29 0d | 0d 16 13 20 20 c9 20 38 |mdrag$).|... . 8|
|00001e50| 3a f2 6b 65 79 70 72 65 | 73 73 0d 0d 20 33 20 20 |:.keypre|ss.. 3 |
|00001e60| c9 20 39 3a e7 20 63 6c | 61 69 6d 6d 65 6e 75 24 |. 9:. cl|aimmenu$|
|00001e70| 3c 3e 22 22 20 8c 20 f2 | 77 68 69 63 68 6d 65 6e |<>"" . .|whichmen|
|00001e80| 75 28 63 6c 61 69 6d 6d | 65 6e 75 24 29 0d 0d 2a |u(claimm|enu$)..*|
|00001e90| 1a 20 20 c9 20 31 37 2c | 31 38 3a f2 72 65 63 65 |. . 17,|18:.rece|
|00001ea0| 69 76 65 28 71 25 29 0d | 0d 34 05 cb 0d 0d 3e 05 |ive(q%).|.4....>.|
|00001eb0| e1 0d 0d 48 04 0d 0d 52 | 11 dd f2 72 65 63 65 69 |...H...R|...recei|
|00001ec0| 76 65 28 71 25 29 0d 0d | 5c 0e c8 8e 20 71 25 21 |ve(q%)..|\... q%!|
|00001ed0| 31 36 20 ca 0d 0d 66 37 | c9 20 30 20 20 20 20 3a |16 ...f7|. 0 :|
|00001ee0| 24 71 25 3d 22 54 41 53 | 4b 22 3a c8 99 20 22 57 |$q%="TAS|K":.. "W|
|00001ef0| 69 6d 70 5f 43 6c 6f 73 | 65 44 6f 77 6e 22 2c 74 |imp_Clos|eDown",t|
|00001f00| 61 73 6b 25 2c 71 25 21 | 30 3a e0 0d 0d 70 19 c9 |ask%,q%!|0:...p..|
|00001f10| 20 32 20 20 20 20 3a f2 | 64 61 74 61 73 61 76 65 | 2 :.|datasave|
|00001f20| 28 71 25 29 0d 0d 7a 25 | c9 20 33 2c 35 20 20 3a |(q%)..z%|. 3,5 :|
|00001f30| e7 20 71 25 21 31 32 3d | 30 20 8c 20 f2 64 61 74 |. q%!12=|0 . .dat|
|00001f40| 61 6c 6f 61 64 28 71 25 | 29 0d 0d 84 05 cb 0d 0d |aload(q%|).......|
|00001f50| 8e 05 e1 0d 0d 98 04 0d | 0d a2 1c dd f2 6c 77 61 |........|.....lwa|
|00001f60| 6f 72 69 67 69 6e 28 62 | 2c f8 20 78 25 2c f8 20 |origin(b|,. x%,. |
|00001f70| 79 25 29 0d 0d ac 1c 78 | 25 3d 62 21 30 2d 62 21 |y%)....x|%=b!0-b!|
|00001f80| 31 36 3a 79 25 3d 62 21 | 31 32 2d 62 21 32 30 0d |16:y%=b!|12-b!20.|
|00001f90| 0d b6 05 e1 0d 0d c0 04 | 0d 0d ca 48 dd a4 69 63 |........|...H..ic|
|00001fa0| 6f 6e 5f 63 72 65 61 74 | 65 28 77 69 6e 64 6f 77 |on_creat|e(window|
|00001fb0| 25 2c 6d 69 6e 78 25 2c | 6d 69 6e 79 25 2c 77 69 |%,minx%,|miny%,wi|
|00001fc0| 64 74 68 25 2c 68 65 69 | 67 68 74 25 2c 66 67 25 |dth%,hei|ght%,fg%|
|00001fd0| 2c 62 67 25 2c 66 6c 67 | 25 2c 64 61 74 61 24 29 |,bg%,flg|%,data$)|
|00001fe0| 0d 0d d4 08 ea 20 69 25 | 0d 0d de 10 71 25 21 30 |..... i%|....q%!0|
|00001ff0| 3d 77 69 6e 64 6f 77 25 | 0d 0d e8 19 71 25 21 34 |=window%|....q%!4|
|00002000| 3d 6d 69 6e 78 25 3a 71 | 25 21 38 3d 6d 69 6e 79 |=minx%:q|%!8=miny|
|00002010| 25 0d 0d f2 2a 71 25 21 | 31 32 3d 6d 69 6e 78 25 |%...*q%!|12=minx%|
|00002020| 2b 77 69 64 74 68 25 3a | 71 25 21 31 36 3d 6d 69 |+width%:|q%!16=mi|
|00002030| 6e 79 25 2b 68 65 69 67 | 68 74 25 0d 0d fc 22 71 |ny%+heig|ht%..."q|
|00002040| 25 21 32 30 3d 66 6c 67 | 25 20 84 20 62 67 25 3c |%!20=flg|% . bg%<|
|00002050| 3c 32 38 20 84 20 66 67 | 25 3c 3c 32 34 0d 0e 06 |<28 . fg|%<<24...|
|00002060| 14 e7 20 71 25 21 32 30 | 20 80 20 26 31 30 30 20 |.. q%!20| . &100 |
|00002070| 8c 0d 0e 10 14 20 20 69 | 25 3d a7 64 61 74 61 24 |..... i|%=.data$|
|00002080| 2c 22 2c 22 29 0d 0e 1a | 1b 20 20 71 25 21 32 34 |,",")...|. q%!24|
|00002090| 3d a0 28 c0 64 61 74 61 | 24 2c 69 25 2d 31 29 29 |=.(.data|$,i%-1))|
|000020a0| 0d 0e 24 0e 20 20 71 25 | 21 32 38 3d 2d 31 0d 0e |..$. q%|!28=-1..|
|000020b0| 2e 1b 20 20 71 25 21 33 | 32 3d a0 28 c1 64 61 74 |.. q%!3|2=.(.dat|
|000020c0| 61 24 2c 69 25 2b 31 29 | 29 0d 0e 38 05 cc 0d 0e |a$,i%+1)|)..8....|
|000020d0| 42 17 24 28 71 25 2b 32 | 34 29 3d c0 64 61 74 61 |B.$(q%+2|4)=.data|
|000020e0| 24 2c 31 31 29 0d 0e 4c | 05 cd 0d 0e 56 22 c8 99 |$,11)..L|....V"..|
|000020f0| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 49 63 6f | "Wimp_C|reateIco|
|00002100| 6e 22 2c 30 2c 71 25 20 | b8 20 69 25 0d 0e 60 07 |n",0,q% |. i%..`.|
|00002110| 3d 69 25 0d 0e 6a 04 0d | 0e 74 23 dd f2 69 63 6f |=i%..j..|.t#..ico|
|00002120| 6e 5f 64 65 73 65 6c 65 | 63 74 28 68 61 6e 64 6c |n_desele|ct(handl|
|00002130| 65 25 2c 69 63 6f 6e 68 | 25 29 0d 0e 7e 12 e7 20 |e%,iconh|%)..~.. |
|00002140| 69 63 6f 6e 68 25 3c 3e | 2d 31 20 8c 0d 0e 88 1e |iconh%<>|-1 .....|
|00002150| 20 20 71 25 21 30 3d 68 | 61 6e 64 6c 65 25 3a 71 | q%!0=h|andle%:q|
|00002160| 25 21 34 3d 69 63 6f 6e | 68 25 0d 0e 92 1b 20 20 |%!4=icon|h%.... |
|00002170| 71 25 21 38 3d 26 32 30 | 30 30 30 30 3a 71 25 21 |q%!8=&20|0000:q%!|
|00002180| 31 32 3d 26 30 0d 0e 9c | 20 20 20 c8 99 20 22 57 |12=&0...| .. "W|
|00002190| 69 6d 70 5f 53 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_SetI|conState|
|000021a0| 22 2c 2c 71 25 0d 0e a6 | 05 cd 0d 0e b0 05 e1 0d |",,q%...|........|
|000021b0| 0e ba 04 0d 0e c4 26 dd | f2 69 63 6f 6e 5f 70 75 |......&.|.icon_pu|
|000021c0| 74 64 61 74 61 28 62 2c | 77 68 25 2c 69 68 25 2c |tdata(b,|wh%,ih%,|
|000021d0| 74 65 78 74 24 2c 72 64 | 29 0d 0e ce 13 62 21 30 |text$,rd|)....b!0|
|000021e0| 3d 77 68 25 3a 62 21 34 | 3d 69 68 25 0d 0e d8 1d |=wh%:b!4|=ih%....|
|000021f0| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 49 63 6f 6e |.. "Wimp|_GetIcon|
|00002200| 53 74 61 74 65 22 2c 2c | 62 0d 0e e2 1b c8 99 20 |State",,|b...... |
|00002210| 22 57 69 6d 70 5f 44 65 | 6c 65 74 65 49 63 6f 6e |"Wimp_De|leteIcon|
|00002220| 22 2c 2c 62 0d 0e ec 1e | 62 21 34 3d 77 68 25 3a |",,b....|b!4=wh%:|
|00002230| 24 28 62 21 32 38 29 3d | 74 65 78 74 24 3a 62 2b |$(b!28)=|text$:b+|
|00002240| 3d 34 0d 0e f6 1b c8 99 | 20 22 57 69 6d 70 5f 43 |=4......| "Wimp_C|
|00002250| 72 65 61 74 65 49 63 6f | 6e 22 2c 2c 62 0d 0f 00 |reateIco|n",,b...|
|00002260| 36 e7 20 72 64 20 8c 20 | c8 99 20 22 57 69 6d 70 |6. rd . |.. "Wimp|
|00002270| 5f 46 6f 72 63 65 52 65 | 64 72 61 77 22 2c 62 21 |_ForceRe|draw",b!|
|00002280| 30 2c 62 21 34 2c 62 21 | 38 2c 62 21 31 32 2c 62 |0,b!4,b!|8,b!12,b|
|00002290| 21 31 36 0d 0f 0a 08 62 | 2d 3d 34 0d 0f 14 05 e1 |!16....b|-=4.....|
|000022a0| 0d 0f 1e 04 0d 0f 28 35 | dd f2 69 63 6f 6e 5f 70 |......(5|..icon_p|
|000022b0| 75 74 64 61 74 61 28 71 | 25 2c 77 68 61 6e 64 6c |utdata(q|%,whandl|
|000022c0| 65 25 2c 69 68 61 6e 64 | 6c 65 25 2c 64 61 74 61 |e%,ihand|le%,data|
|000022d0| 24 2c 72 65 64 72 61 77 | 29 0d 0f 32 11 71 25 21 |$,redraw|)..2.q%!|
|000022e0| 30 3d 77 68 61 6e 64 6c | 65 25 0d 0f 3c 11 71 25 |0=whandl|e%..<.q%|
|000022f0| 21 34 3d 69 68 61 6e 64 | 6c 65 25 0d 0f 46 1e c8 |!4=ihand|le%..F..|
|00002300| 99 20 22 57 69 6d 70 5f | 47 65 74 49 63 6f 6e 53 |. "Wimp_|GetIconS|
|00002310| 74 61 74 65 22 2c 2c 71 | 25 0d 0f 50 12 24 28 71 |tate",,q|%..P.$(q|
|00002320| 25 21 32 38 29 3d 64 61 | 74 61 24 0d 0f 5a 0e e7 |%!28)=da|ta$..Z..|
|00002330| 20 72 65 64 72 61 77 20 | 8c 0d 0f 64 3b 20 20 c8 | redraw |...d; .|
|00002340| 99 20 22 57 69 6d 70 5f | 46 6f 72 63 65 52 65 64 |. "Wimp_|ForceRed|
|00002350| 72 61 77 22 2c 77 68 61 | 6e 64 6c 65 25 2c 71 25 |raw",wha|ndle%,q%|
|00002360| 21 38 2c 71 25 21 31 32 | 2c 71 25 21 31 36 2c 71 |!8,q%!12|,q%!16,q|
|00002370| 25 21 32 30 0d 0f 6e 05 | cd 0d 0f 78 05 e1 0d 0f |%!20..n.|...x....|
|00002380| 82 04 0d 0f 8c 2d dd f2 | 69 63 6f 6e 5f 73 65 74 |.....-..|icon_set|
|00002390| 62 67 63 6f 6c 6f 75 72 | 28 62 2c 77 68 61 6e 64 |bgcolour|(b,whand|
|000023a0| 6c 65 25 2c 69 63 6f 6e | 25 2c 63 6f 6c 25 29 0d |le%,icon|%,col%).|
|000023b0| 0f 96 35 21 62 3d 77 68 | 61 6e 64 6c 65 25 3a 62 |..5!b=wh|andle%:b|
|000023c0| 21 34 3d 69 63 6f 6e 25 | 3a 62 21 38 3d 63 6f 6c |!4=icon%|:b!8=col|
|000023d0| 25 3c 3c 32 38 3a 62 21 | 31 32 3d 26 46 30 30 30 |%<<28:b!|12=&F000|
|000023e0| 30 30 30 30 0d 0f a0 1e | c8 99 20 22 57 69 6d 70 |0000....|.. "Wimp|
|000023f0| 5f 53 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 30 |_SetIcon|State",0|
|00002400| 2c 62 0d 0f aa 05 e1 0d | 0f b4 04 0d 0f be 2d dd |,b......|......-.|
|00002410| f2 69 63 6f 6e 5f 73 65 | 74 66 67 63 6f 6c 6f 75 |.icon_se|tfgcolou|
|00002420| 72 28 62 2c 77 68 61 6e | 64 6c 65 25 2c 69 63 6f |r(b,whan|dle%,ico|
|00002430| 6e 25 2c 63 6f 6c 25 29 | 0d 0f c8 35 21 62 3d 77 |n%,col%)|...5!b=w|
|00002440| 68 61 6e 64 6c 65 25 3a | 62 21 34 3d 69 63 6f 6e |handle%:|b!4=icon|
|00002450| 25 3a 62 21 38 3d 63 6f | 6c 25 3c 3c 32 34 3a 62 |%:b!8=co|l%<<24:b|
|00002460| 21 31 32 3d 26 30 46 30 | 30 30 30 30 30 0d 0f d2 |!12=&0F0|00000...|
|00002470| 1e c8 99 20 22 57 69 6d | 70 5f 53 65 74 49 63 6f |... "Wim|p_SetIco|
|00002480| 6e 53 74 61 74 65 22 2c | 30 2c 62 0d 0f dc 05 e1 |nState",|0,b.....|
|00002490| 0d 0f e6 04 0d 0f f0 39 | dd a4 69 63 6f 6e 5f 6e |.......9|..icon_n|
|000024a0| 65 77 73 70 72 69 74 65 | 28 62 2c 77 68 61 6e 64 |ewsprite|(b,whand|
|000024b0| 6c 65 25 2c 69 68 61 6e | 64 6c 65 25 2c 6e 65 77 |le%,ihan|dle%,new|
|000024c0| 6e 61 6d 65 24 2c 72 65 | 64 72 61 77 29 0d 0f fa |name$,re|draw)...|
|000024d0| 1d 62 21 30 3d 77 68 61 | 6e 64 6c 65 25 3a 62 21 |.b!0=wha|ndle%:b!|
|000024e0| 34 3d 69 68 61 6e 64 6c | 65 25 0d 10 04 1d c8 99 |4=ihandl|e%......|
|000024f0| 20 22 57 69 6d 70 5f 47 | 65 74 49 63 6f 6e 53 74 | "Wimp_G|etIconSt|
|00002500| 61 74 65 22 2c 2c 62 0d | 10 0e 1b c8 99 20 22 57 |ate",,b.|..... "W|
|00002510| 69 6d 70 5f 44 65 6c 65 | 74 65 49 63 6f 6e 22 2c |imp_Dele|teIcon",|
|00002520| 2c 62 0d 10 18 43 62 21 | 34 3d 62 21 38 3a 62 21 |,b...Cb!|4=b!8:b!|
|00002530| 38 3d 62 21 31 32 3a 62 | 21 31 32 3d 62 21 31 36 |8=b!12:b|!12=b!16|
|00002540| 3a 62 21 31 36 3d 62 21 | 32 30 3a 62 21 32 30 3d |:b!16=b!|20:b!20=|
|00002550| 62 21 32 34 3a 24 28 62 | 2b 32 34 29 3d 6e 65 77 |b!24:$(b|+24)=new|
|00002560| 6e 61 6d 65 24 0d 10 22 | 26 c8 99 20 22 57 69 6d |name$.."|&.. "Wim|
|00002570| 70 5f 43 72 65 61 74 65 | 49 63 6f 6e 22 2c 2c 62 |p_Create|Icon",,b|
|00002580| 20 b8 20 69 68 61 6e 64 | 6c 65 25 0d 10 2c 3a e7 | . ihand|le%..,:.|
|00002590| 20 72 65 64 72 61 77 20 | 8c 20 c8 99 20 22 57 69 | redraw |. .. "Wi|
|000025a0| 6d 70 5f 46 6f 72 63 65 | 52 65 64 72 61 77 22 2c |mp_Force|Redraw",|
|000025b0| 62 21 30 2c 62 21 34 2c | 62 21 38 2c 62 21 31 32 |b!0,b!4,|b!8,b!12|
|000025c0| 2c 62 21 31 36 0d 10 36 | 0d 3d 69 68 61 6e 64 6c |,b!16..6|.=ihandl|
|000025d0| 65 25 0d 10 40 04 0d 10 | 4a 28 dd a4 69 63 6f 6e |e%..@...|J(..icon|
|000025e0| 5f 67 65 74 64 61 74 61 | 28 71 25 2c 77 68 61 6e |_getdata|(q%,whan|
|000025f0| 64 6c 65 25 2c 69 68 61 | 6e 64 6c 65 25 29 0d 10 |dle%,iha|ndle%)..|
|00002600| 54 11 71 25 21 30 3d 77 | 68 61 6e 64 6c 65 25 0d |T.q%!0=w|handle%.|
|00002610| 10 5e 11 71 25 21 34 3d | 69 68 61 6e 64 6c 65 25 |.^.q%!4=|ihandle%|
|00002620| 0d 10 68 1e c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |..h... "|Wimp_Get|
|00002630| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 71 25 0d 10 |IconStat|e",,q%..|
|00002640| 72 0d 3d 24 28 71 25 21 | 32 38 29 0d 10 7c 04 0d |r.=$(q%!|28)..|..|
|00002650| 10 86 45 dd f2 63 61 72 | 65 74 5f 73 65 74 70 6f |..E..car|et_setpo|
|00002660| 73 69 74 69 6f 6e 28 77 | 68 61 6e 64 6c 65 25 2c |sition(w|handle%,|
|00002670| 69 68 61 6e 64 6c 65 25 | 2c 78 6f 66 66 25 2c 79 |ihandle%|,xoff%,y|
|00002680| 6f 66 66 25 2c 68 65 69 | 67 68 74 25 2c 69 6e 64 |off%,hei|ght%,ind|
|00002690| 65 78 25 29 0d 10 90 4b | c8 99 20 22 57 69 6d 70 |ex%)...K|.. "Wimp|
|000026a0| 5f 53 65 74 43 61 72 65 | 74 50 6f 73 69 74 69 6f |_SetCare|tPositio|
|000026b0| 6e 22 2c 77 68 61 6e 64 | 6c 65 25 2c 69 68 61 6e |n",whand|le%,ihan|
|000026c0| 64 6c 65 25 2c 78 6f 66 | 66 25 2c 79 6f 66 66 25 |dle%,xof|f%,yoff%|
|000026d0| 2c 68 65 69 67 68 74 25 | 2c 69 6e 64 65 78 25 0d |,height%|,index%.|
|000026e0| 10 9a 05 e1 0d 10 a4 04 | 0d 10 ae 0d dd f2 6e 65 |........|......ne|
|000026f0| 77 76 61 6c 73 0d 10 b8 | 17 67 74 78 3d 71 25 21 |wvals...|.gtx=q%!|
|00002700| 33 36 3a 67 74 79 3d 71 | 25 21 34 30 0d 10 c2 15 |36:gty=q|%!40....|
|00002710| 77 62 78 3d 71 25 21 34 | 3a 77 62 79 3d 71 25 21 |wbx=q%!4|:wby=q%!|
|00002720| 38 0d 10 cc 17 77 74 78 | 3d 71 25 21 31 32 3a 77 |8....wtx|=q%!12:w|
|00002730| 74 79 3d 71 25 21 31 36 | 0d 10 d6 17 78 73 63 3d |ty=q%!16|....xsc=|
|00002740| 71 25 21 32 30 3a 79 73 | 63 3d 71 25 21 32 34 0d |q%!20:ys|c=q%!24.|
|00002750| 10 e0 21 68 70 3d 77 74 | 78 2d 77 62 78 3a 76 70 |..!hp=wt|x-wbx:vp|
|00002760| 3d 77 74 79 2d 77 62 79 | 3a 65 62 78 3d 78 73 63 |=wty-wby|:ebx=xsc|
|00002770| 0d 10 ea 21 65 74 78 3d | 78 73 63 2b 68 70 3a 65 |...!etx=|xsc+hp:e|
|00002780| 74 79 3d 79 73 63 3a 65 | 62 79 3d 79 73 63 2d 76 |ty=ysc:e|by=ysc-v|
|00002790| 70 0d 10 f4 05 e1 0d 10 | fe 04 0d 11 08 32 dd f2 |p.......|.....2..|
|000027a0| 64 65 66 69 6e 65 5f 6d | 65 6e 75 5f 74 65 78 74 |define_m|enu_text|
|000027b0| 28 74 65 78 74 24 2c 6e | 2c 77 2c 74 2c 64 2c 73 |(text$,n|,w,t,d,s|
|000027c0| 2c 66 6c 61 67 73 2c 73 | 6d 2c 6c 29 0d 11 12 12 |,flags,s|m,l)....|
|000027d0| 74 65 78 74 24 28 6e 29 | 3d 74 65 78 74 24 0d 11 |text$(n)|=text$..|
|000027e0| 1c 10 73 65 74 74 69 6e | 67 28 6e 29 3d 30 0d 11 |..settin|g(n)=0..|
|000027f0| 26 38 e7 20 77 20 8c 20 | 73 65 74 74 69 6e 67 28 |&8. w . |setting(|
|00002800| 6e 29 3d 73 65 74 74 69 | 6e 67 28 6e 29 20 84 20 |n)=setti|ng(n) . |
|00002810| 26 30 34 3a 66 6c 61 67 | 73 3d 66 6c 61 67 73 20 |&04:flag|s=flags |
|00002820| 84 20 26 31 30 30 0d 11 | 30 25 e7 20 74 20 8c 20 |. &100..|0%. t . |
|00002830| 73 65 74 74 69 6e 67 28 | 6e 29 3d 73 65 74 74 69 |setting(|n)=setti|
|00002840| 6e 67 28 6e 29 20 84 20 | 26 30 31 0d 11 3a 25 e7 |ng(n) . |&01..:%.|
|00002850| 20 64 20 8c 20 73 65 74 | 74 69 6e 67 28 6e 29 3d | d . set|ting(n)=|
|00002860| 73 65 74 74 69 6e 67 28 | 6e 29 20 84 20 26 30 32 |setting(|n) . &02|
|00002870| 0d 11 44 25 e7 20 6c 20 | 8c 20 73 65 74 74 69 6e |..D%. l |. settin|
|00002880| 67 28 6e 29 3d 73 65 74 | 74 69 6e 67 28 6e 29 20 |g(n)=set|ting(n) |
|00002890| 84 20 26 38 30 0d 11 4e | 1f e7 20 73 20 8c 20 66 |. &80..N|.. s . f|
|000028a0| 6c 61 67 73 3d 66 6c 61 | 67 73 20 84 20 26 34 30 |lags=fla|gs . &40|
|000028b0| 30 30 30 30 0d 11 58 12 | 66 6c 61 67 73 28 6e 29 |0000..X.|flags(n)|
|000028c0| 3d 66 6c 61 67 73 0d 11 | 62 11 73 75 62 6d 65 6e |=flags..|b.submen|
|000028d0| 75 28 6e 29 3d 73 6d 0d | 11 6c 05 e1 0d 11 76 04 |u(n)=sm.|.l....v.|
|000028e0| 0d 11 80 26 dd f2 63 72 | 65 61 74 65 5f 6d 65 6e |...&..cr|eate_men|
|000028f0| 75 28 74 69 74 6c 65 24 | 2c 6e 2c 77 69 64 74 68 |u(title$|,n,width|
|00002900| 25 2c 78 2c 79 29 0d 11 | 8a 0d 6d 62 25 3d 6d 65 |%,x,y)..|..mb%=me|
|00002910| 6e 75 25 0d 11 94 0f 6d | 65 6e 75 73 3d 30 3a 71 |nu%....m|enus=0:q|
|00002920| 3d 30 0d 11 9e 05 f5 0d | 11 a8 21 20 20 6d 65 6e |=0......|..! men|
|00002930| 75 70 6f 73 28 6d 65 6e | 75 73 29 3d 6d 62 25 3a |upos(men|us)=mb%:|
|00002940| 6d 65 6e 75 73 2b 3d 31 | 0d 11 b2 11 20 20 24 6d |menus+=1|.... $m|
|00002950| 62 25 3d 74 69 74 6c 65 | 24 0d 11 bc 0e 20 20 6d |b%=title|$.... m|
|00002960| 62 25 3f 31 32 3d 37 0d | 11 c6 0e 20 20 6d 62 25 |b%?12=7.|... mb%|
|00002970| 3f 31 33 3d 32 0d 11 d0 | 0e 20 20 6d 62 25 3f 31 |?13=2...|. mb%?1|
|00002980| 34 3d 37 0d 11 da 0e 20 | 20 6d 62 25 3f 31 35 3d |4=7.... | mb%?15=|
|00002990| 30 0d 11 e4 13 20 20 6d | 62 25 21 31 36 3d 77 69 |0.... m|b%!16=wi|
|000029a0| 64 74 68 25 0d 11 ee 27 | 20 20 6d 62 25 21 32 30 |dth%...'| mb%!20|
|000029b0| 3d 34 30 20 3a f4 20 68 | 65 69 67 68 74 20 6f 66 |=40 :. h|eight of|
|000029c0| 20 6d 65 6e 75 20 69 74 | 65 6d 73 0d 11 f8 41 20 | menu it|ems...A |
|000029d0| 20 6d 62 25 21 32 34 3d | 30 20 20 3a f4 20 76 65 | mb%!24=|0 :. ve|
|000029e0| 72 74 69 63 61 6c 20 67 | 61 70 20 62 65 74 77 65 |rtical g|ap betwe|
|000029f0| 65 6e 20 69 74 65 6d 73 | 20 28 61 6c 73 6f 20 74 |en items| (also t|
|00002a00| 6f 70 20 26 20 62 6f 74 | 74 6f 6d 29 0d 12 02 14 |op & bot|tom)....|
|00002a10| 20 20 69 74 65 6d 70 74 | 72 3d 6d 62 25 2b 32 38 | itempt|r=mb%+28|
|00002a20| 0d 12 0c 07 20 20 f5 0d | 12 16 1c 20 20 20 20 69 |.... ..|... i|
|00002a30| 74 65 6d 70 74 72 21 30 | 3d 73 65 74 74 69 6e 67 |temptr!0|=setting|
|00002a40| 28 71 29 0d 12 20 18 20 | 20 20 20 72 65 66 28 71 |(q).. . | ref(q|
|00002a50| 29 3d 69 74 65 6d 70 74 | 72 2b 34 0d 12 2a 2a 20 |)=itempt|r+4..** |
|00002a60| 20 20 20 69 74 65 6d 70 | 74 72 21 38 3d 66 6c 61 | itemp|tr!8=fla|
|00002a70| 67 73 28 71 29 20 84 20 | 30 3c 3c 32 38 20 84 20 |gs(q) . |0<<28 . |
|00002a80| 37 3c 3c 32 34 0d 12 34 | 1f 20 20 20 20 e7 20 28 |7<<24..4|. . (|
|00002a90| 66 6c 61 67 73 28 71 29 | 20 80 20 26 31 30 30 29 |flags(q)| . &100)|
|00002aa0| 3d 30 20 8c 0d 12 3e 20 | 20 20 20 20 20 20 24 28 |=0 ...> | $(|
|00002ab0| 69 74 65 6d 70 74 72 2b | 31 32 29 3d 74 65 78 74 |itemptr+|12)=text|
|00002ac0| 24 28 71 29 0d 12 48 09 | 20 20 20 20 cc 0d 12 52 |$(q)..H.| ...R|
|00002ad0| 1c 20 20 20 20 20 20 70 | 6f 73 3d a7 74 65 78 74 |. p|os=.text|
|00002ae0| 24 28 71 29 2c 22 28 22 | 29 0d 12 5c 28 20 20 20 |$(q),"("|)..\( |
|00002af0| 20 20 20 69 74 65 6d 70 | 74 72 21 31 32 3d a0 28 | itemp|tr!12=.(|
|00002b00| c0 74 65 78 74 24 28 71 | 29 2c 70 6f 73 2d 31 29 |.text$(q|),pos-1)|
|00002b10| 29 0d 12 66 17 20 20 20 | 20 20 20 69 74 65 6d 70 |)..f. | itemp|
|00002b20| 74 72 21 31 36 3d 2d 31 | 0d 12 70 32 20 20 20 20 |tr!16=-1|..p2 |
|00002b30| 20 20 69 74 65 6d 70 74 | 72 21 32 30 3d a0 28 c2 | itempt|r!20=.(.|
|00002b40| 74 65 78 74 24 28 71 29 | 2c a9 28 74 65 78 74 24 |text$(q)|,.(text$|
|00002b50| 28 71 29 29 2d 70 6f 73 | 29 29 0d 12 7a 09 20 20 |(q))-pos|))..z. |
|00002b60| 20 20 cd 0d 12 84 18 20 | 20 20 20 69 74 65 6d 70 | ..... | itemp|
|00002b70| 74 72 2b 3d 32 34 3a 71 | 2b 3d 31 0d 12 8e 1e 20 |tr+=24:q|+=1.... |
|00002b80| 20 fd 20 28 73 65 74 74 | 69 6e 67 28 71 2d 31 29 | . (sett|ing(q-1)|
|00002b90| 20 80 20 26 38 30 29 3e | 30 0d 12 98 11 20 20 6d | . &80)>|0.... m|
|00002ba0| 62 25 3d 69 74 65 6d 70 | 74 72 0d 12 a2 23 20 20 |b%=itemp|tr...# |
|00002bb0| e7 20 71 3c 3e 6e 20 8c | 20 74 69 74 6c 65 24 3d |. q<>n .| title$=|
|00002bc0| 74 65 78 74 24 28 71 29 | 3a 71 2b 3d 31 0d 12 ac |text$(q)|:q+=1...|
|00002bd0| 09 fd 20 71 3d 6e 0d 12 | b6 04 0d 12 c0 0f e3 20 |.. q=n..|....... |
|00002be0| 71 3d 30 20 b8 20 6e 2d | 31 0d 12 ca 29 20 20 e7 |q=0 . n-|1...) .|
|00002bf0| 20 73 75 62 6d 65 6e 75 | 28 71 29 3e 30 20 80 20 | submenu|(q)>0 . |
|00002c00| 73 75 62 6d 65 6e 75 28 | 71 29 3c 6d 65 6e 75 73 |submenu(|q)<menus|
|00002c10| 20 8c 0d 12 d4 23 20 20 | 20 20 21 72 65 66 28 71 | ....# | !ref(q|
|00002c20| 29 3d 6d 65 6e 75 70 6f | 73 28 73 75 62 6d 65 6e |)=menupo|s(submen|
|00002c30| 75 28 71 29 29 0d 12 de | 07 20 20 cc 0d 12 e8 48 |u(q))...|. ....H|
|00002c40| 20 20 20 20 21 72 65 66 | 28 71 29 3d 73 75 62 6d | !ref|(q)=subm|
|00002c50| 65 6e 75 28 71 29 3a f4 | 20 77 61 73 20 2d 31 20 |enu(q):.| was -1 |
|00002c60| 69 2e 65 2e 20 73 75 62 | 6d 65 6e 75 20 64 69 73 |i.e. sub|menu dis|
|00002c70| 61 6c 6c 6f 77 65 64 21 | 20 54 68 69 73 20 63 68 |allowed!| This ch|
|00002c80| 61 6e 67 65 0d 12 f2 3e | 20 20 20 20 20 20 20 20 |ange...>| |
|00002c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a f4 | | :.|
|00002ca0| 20 61 6c 6c 6f 77 73 20 | 61 20 77 69 6e 64 6f 77 | allows |a window|
|00002cb0| 20 68 61 6e 64 6c 65 20 | 74 6f 20 62 65 20 75 73 | handle |to be us|
|00002cc0| 65 64 0d 12 fc 07 20 20 | cd 0d 13 06 07 ed 20 71 |ed.... |...... q|
|00002cd0| 0d 13 10 23 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |...#.. "|Wimp_Cre|
|00002ce0| 61 74 65 4d 65 6e 75 22 | 2c 2c 6d 65 6e 75 25 2c |ateMenu"|,,menu%,|
|00002cf0| 78 2c 79 0d 13 1a 05 e1 | 0d 13 24 04 0d 13 2e 1d |x,y.....|..$.....|
|00002d00| dd f2 6f 70 65 6e 74 65 | 6d 70 6c 61 74 65 66 69 |..opente|mplatefi|
|00002d10| 6c 65 28 46 49 4c 45 24 | 29 0d 13 38 21 c8 99 20 |le(FILE$|)..8!.. |
|00002d20| 22 57 69 6d 70 5f 4f 70 | 65 6e 54 65 6d 70 6c 61 |"Wimp_Op|enTempla|
|00002d30| 74 65 22 2c 2c 46 49 4c | 45 24 0d 13 42 05 e1 0d |te",,FIL|E$..B...|
|00002d40| 13 4c 04 0d 13 56 19 dd | f2 6c 6f 61 64 74 65 6d |.L...V..|.loadtem|
|00002d50| 70 6c 61 74 65 28 6e 61 | 6d 65 24 29 0d 13 60 13 |plate(na|me$)..`.|
|00002d60| ea 20 74 79 70 65 25 2c | 70 6f 73 25 2c 78 25 0d |. type%,|pos%,x%.|
|00002d70| 13 6a 4c c8 99 20 22 57 | 69 6d 70 5f 4c 6f 61 64 |.jL.. "W|imp_Load|
|00002d80| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 71 25 2c 69 70 |Template|",,q%,ip|
|00002d90| 74 72 25 2c 69 65 6e 64 | 25 2c 2d 31 2c 6e 61 6d |tr%,iend|%,-1,nam|
|00002da0| 65 24 2c 30 20 b8 20 74 | 79 70 65 25 2c 2c 69 70 |e$,0 . t|ype%,,ip|
|00002db0| 74 72 25 2c 2c 2c 2c 70 | 6f 73 25 0d 13 74 05 e1 |tr%,,,,p|os%..t..|
|00002dc0| 0d 13 7e 04 0d 13 88 17 | dd f2 63 6c 6f 73 65 74 |..~.....|..closet|
|00002dd0| 65 6d 70 6c 61 74 65 66 | 69 6c 65 0d 13 92 1b c8 |emplatef|ile.....|
|00002de0| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 54 65 6d |. "Wimp_|CloseTem|
|00002df0| 70 6c 61 74 65 22 0d 13 | 9c 05 e1 0d 13 a6 04 0d |plate"..|........|
|00002e00| 13 b0 22 dd f2 6d 6f 75 | 73 65 5f 72 65 63 74 61 |.."..mou|se_recta|
|00002e10| 6e 67 6c 65 28 78 25 2c | 79 25 2c 77 25 2c 68 25 |ngle(x%,|y%,w%,h%|
|00002e20| 29 0d 13 ba 15 c8 97 20 | c8 93 20 78 25 2c 79 25 |)...... |.. x%,y%|
|00002e30| 2c 77 25 2c 68 25 0d 13 | c4 05 e1 0d 13 ce 04 0d |,w%,h%..|........|
|00002e40| 13 d8 1d dd f2 6d 6f 75 | 73 65 5f 6c 69 6d 69 74 |.....mou|se_limit|
|00002e50| 28 62 2c 77 68 61 6e 64 | 6c 65 25 29 0d 13 e2 2c |(b,whand|le%)...,|
|00002e60| 62 21 30 3d 77 68 61 6e | 64 6c 65 25 3a c8 99 20 |b!0=whan|dle%:.. |
|00002e70| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|00002e80| 74 61 74 65 22 2c 2c 62 | 0d 13 ec 2f f2 6d 6f 75 |tate",,b|.../.mou|
|00002e90| 73 65 5f 72 65 63 74 61 | 6e 67 6c 65 28 62 21 34 |se_recta|ngle(b!4|
|00002ea0| 2c 62 21 38 2c 62 21 31 | 32 2d 62 21 34 2c 62 21 |,b!8,b!1|2-b!4,b!|
|00002eb0| 31 36 2d 62 21 38 29 0d | 13 f6 05 e1 0d 14 00 04 |16-b!8).|........|
|00002ec0| 0d 14 0a 14 dd f2 64 65 | 6c 61 79 28 73 65 63 6f |......de|lay(seco|
|00002ed0| 6e 64 73 29 0d 14 14 0a | ea 20 74 69 6d 65 0d 14 |nds)....|. time..|
|00002ee0| 1e 1e 74 69 6d 65 20 3d | 20 91 20 2b 20 28 73 65 |..time =| . + (se|
|00002ef0| 63 6f 6e 64 73 20 2a 20 | 31 30 30 29 0d 14 28 05 |conds * |100)..(.|
|00002f00| f5 0d 14 32 0e fd 20 91 | 20 3e 20 74 69 6d 65 0d |...2.. .| > time.|
|00002f10| 14 3c 05 e1 0d 14 46 04 | 0d 14 50 19 dd a4 75 70 |.<....F.|..P...up|
|00002f20| 70 65 72 5f 63 61 73 65 | 28 73 74 72 69 6e 67 24 |per_case|(string$|
|00002f30| 29 0d 14 5a 0b ea 20 6c | 6f 6f 70 25 0d 14 64 16 |)..Z.. l|oop%..d.|
|00002f40| e7 20 a9 28 73 74 72 69 | 6e 67 24 29 20 3e 20 30 |. .(stri|ng$) > 0|
|00002f50| 20 8c 0d 14 6e 1d 20 e3 | 20 6c 6f 6f 70 25 20 3d | ...n. .| loop% =|
|00002f60| 20 31 20 b8 20 a9 28 73 | 74 72 69 6e 67 24 29 0d | 1 . .(s|tring$).|
|00002f70| 14 78 3a 20 20 20 e7 20 | c1 73 74 72 69 6e 67 24 |.x: . |.string$|
|00002f80| 2c 6c 6f 6f 70 25 2c 31 | 29 3e 3d 22 61 22 20 80 |,loop%,1|)>="a" .|
|00002f90| 20 c1 73 74 72 69 6e 67 | 24 2c 6c 6f 6f 70 25 2c | .string|$,loop%,|
|00002fa0| 31 29 3c 3d 22 7a 22 20 | 8c 0d 14 82 3a 20 20 20 |1)<="z" |....: |
|00002fb0| 20 20 c1 73 74 72 69 6e | 67 24 2c 6c 6f 6f 70 25 | .strin|g$,loop%|
|00002fc0| 2c 31 29 20 3d 20 bd 28 | 97 28 c1 73 74 72 69 6e |,1) = .(|.(.strin|
|00002fd0| 67 24 2c 6c 6f 6f 70 25 | 2c 31 29 29 20 80 20 26 |g$,loop%|,1)) . &|
|00002fe0| 44 46 29 0d 14 8c 08 20 | 20 20 cd 0d 14 96 0c 20 |DF).... | ..... |
|00002ff0| ed 20 6c 6f 6f 70 25 0d | 14 a0 05 cd 0d 14 aa 0d |. loop%.|........|
|00003000| 3d 20 73 74 72 69 6e 67 | 24 0d 14 b4 04 0d 14 be |= string|$.......|
|00003010| 27 dd f2 57 69 6e 64 6f | 77 5f 52 65 54 69 74 6c |'..Windo|w_ReTitl|
|00003020| 65 28 62 2c 77 68 61 6e | 64 6c 65 25 2c 74 69 74 |e(b,whan|dle%,tit|
|00003030| 6c 65 24 29 0d 14 c8 0b | ea 20 77 6f 62 6c 6b 0d |le$)....|. woblk.|
|00003040| 14 d2 0d de 20 77 6f 62 | 6c 6b 20 35 0d 14 dc 10 |.... wob|lk 5....|
|00003050| 62 21 30 3d 77 68 61 6e | 64 6c 65 25 0d 14 e6 1e |b!0=whan|dle%....|
|00003060| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 57 69 6e 64 |.. "Wimp|_GetWind|
|00003070| 6f 77 49 6e 66 6f 22 2c | 2c 62 0d 14 f0 15 24 28 |owInfo",|,b....$(|
|00003080| 21 28 62 2b 37 36 29 29 | 3d 74 69 74 6c 65 24 0d |!(b+76))|=title$.|
|00003090| 14 fa 14 77 6f 62 6c 6b | 21 30 3d 77 68 61 6e 64 |...woblk|!0=whand|
|000030a0| 6c 65 25 0d 15 04 25 c8 | 99 20 22 57 69 6d 70 5f |le%...%.|. "Wimp_|
|000030b0| 47 65 74 57 69 6e 64 6f | 77 4f 75 74 6c 69 6e 65 |GetWindo|wOutline|
|000030c0| 22 2c 2c 77 6f 62 6c 6b | 0d 15 0e 44 c8 99 20 22 |",,woblk|...D.. "|
|000030d0| 57 69 6d 70 5f 46 6f 72 | 63 65 52 65 64 72 61 77 |Wimp_For|ceRedraw|
|000030e0| 22 2c 2d 31 2c 77 6f 62 | 6c 6b 21 34 2c 28 77 6f |",-1,wob|lk!4,(wo|
|000030f0| 62 6c 6b 21 31 36 29 2d | 34 30 2c 77 6f 62 6c 6b |blk!16)-|40,woblk|
|00003100| 21 31 32 2c 77 6f 62 6c | 6b 21 31 36 0d 15 18 05 |!12,wobl|k!16....|
|00003110| e1 0d 15 22 04 0d 15 2c | 11 dd a4 6c 65 61 66 28 |..."...,|...leaf(|
|00003120| 70 61 74 68 24 29 0d 15 | 36 12 c8 95 20 a7 70 61 |path$)..|6... .pa|
|00003130| 74 68 24 2c 22 2e 22 29 | 0d 15 40 21 20 20 70 61 |th$,".")|..@! pa|
|00003140| 74 68 24 3d c1 70 61 74 | 68 24 2c a7 70 61 74 68 |th$=.pat|h$,.path|
|00003150| 24 2c 22 2e 22 29 2b 31 | 29 0d 15 4a 05 ce 0d 15 |$,".")+1|)..J....|
|00003160| 54 0a 3d 70 61 74 68 24 | 0d 15 5e 04 0d 15 68 10 |T.=path$|..^...h.|
|00003170| dd a4 67 6e 61 6d 65 28 | 70 74 72 29 0d 15 72 09 |..gname(|ptr)..r.|
|00003180| 66 24 3d 22 22 0d 15 7c | 19 c8 95 20 3f 70 74 72 |f$=""..||... ?ptr|
|00003190| 3c 3e 30 20 80 20 3f 70 | 74 72 3c 3e 31 33 0d 15 |<>0 . ?p|tr<>13..|
|000031a0| 86 18 20 20 66 24 3d 66 | 24 2b bd 3f 70 74 72 3a |.. f$=f|$+.?ptr:|
|000031b0| 70 74 72 2b 3d 31 0d 15 | 90 05 ce 0d 15 9a 07 3d |ptr+=1..|.......=|
|000031c0| 66 24 0d 15 a4 04 0d 15 | ae 1a dd a4 66 69 6c 65 |f$......|....file|
|000031d0| 5f 6c 65 6e 67 74 68 28 | 6f 62 6a 65 63 74 24 29 |_length(|object$)|
|000031e0| 0d 15 b8 37 ea 20 74 79 | 70 65 25 2c 6c 6f 61 64 |...7. ty|pe%,load|
|000031f0| 5f 61 64 64 72 25 2c 65 | 78 65 63 5f 61 64 64 72 |_addr%,e|xec_addr|
|00003200| 25 2c 6c 65 6e 67 74 68 | 25 2c 61 74 74 73 25 2c |%,length|%,atts%,|
|00003210| 73 74 72 69 6e 67 24 0d | 15 c2 47 c8 99 20 22 4f |string$.|..G.. "O|
|00003220| 53 5f 46 69 6c 65 22 2c | 35 2c 6f 62 6a 65 63 74 |S_File",|5,object|
|00003230| 24 20 b8 20 74 79 70 65 | 25 2c 2c 6c 6f 61 64 5f |$ . type|%,,load_|
|00003240| 61 64 64 72 25 2c 65 78 | 65 63 5f 61 64 64 72 25 |addr%,ex|ec_addr%|
|00003250| 2c 6c 65 6e 67 74 68 25 | 2c 61 74 74 73 25 0d 15 |,length%|,atts%..|
|00003260| cc 0c 3d 6c 65 6e 67 74 | 68 25 0d 15 d6 04 0d 15 |..=lengt|h%......|
|00003270| e0 13 dd a4 66 69 6c 65 | 5f 64 61 74 65 28 46 24 |....file|_date(F$|
|00003280| 29 0d 15 ea 0e ea 20 4c | 25 2c 41 25 2c 54 25 0d |)..... L|%,A%,T%.|
|00003290| 15 f4 17 24 66 62 75 66 | 66 65 72 25 3d c4 32 38 |...$fbuf|fer%=.28|
|000032a0| 2c bd 28 30 29 29 0d 15 | fe 2f c8 99 20 22 4f 53 |,.(0))..|./.. "OS|
|000032b0| 5f 46 69 6c 65 22 2c 35 | 2c 46 24 20 b8 20 54 25 |_File",5|,F$ . T%|
|000032c0| 2c 2c 6c 61 64 64 72 25 | 2c 65 61 64 64 72 25 2c |,,laddr%|,eaddr%,|
|000032d0| 4c 25 2c 41 25 0d 16 08 | 3b f4 20 6c 6f 61 64 20 |L%,A%...|;. load |
|000032e0| 61 6e 64 20 65 78 65 63 | 75 74 69 6f 6e 20 61 64 |and exec|ution ad|
|000032f0| 64 72 65 73 73 65 73 20 | 61 72 65 2c 20 69 6e 20 |dresses |are, in |
|00003300| 66 61 63 74 2c 20 74 69 | 6d 65 20 73 74 61 6d 70 |fact, ti|me stamp|
|00003310| 0d 16 12 19 66 64 61 74 | 65 25 3f 34 3d 6c 61 64 |....fdat|e%?4=lad|
|00003320| 64 72 25 20 80 20 26 46 | 46 0d 16 1c 1d 66 64 61 |dr% . &F|F....fda|
|00003330| 74 65 25 3f 33 3d 65 61 | 64 64 72 25 3e 3e 32 34 |te%?3=ea|ddr%>>24|
|00003340| 20 80 20 26 46 46 0d 16 | 26 1d 66 64 61 74 65 25 | . &FF..|&.fdate%|
|00003350| 3f 32 3d 65 61 64 64 72 | 25 3e 3e 31 36 20 80 20 |?2=eaddr|%>>16 . |
|00003360| 26 46 46 0d 16 30 1d 66 | 64 61 74 65 25 3f 31 3d |&FF..0.f|date%?1=|
|00003370| 65 61 64 64 72 25 3e 3e | 38 20 20 80 20 26 46 46 |eaddr%>>|8 . &FF|
|00003380| 0d 16 3a 1d 66 64 61 74 | 65 25 3f 30 3d 65 61 64 |..:.fdat|e%?0=ead|
|00003390| 64 72 25 20 20 20 20 20 | 80 20 26 46 46 0d 16 44 |dr% |. &FF..D|
|000033a0| 3c c8 99 20 22 4f 53 5f | 43 6f 6e 76 65 72 74 53 |<.. "OS_|ConvertS|
|000033b0| 74 61 6e 64 61 72 64 44 | 61 74 65 41 6e 64 54 69 |tandardD|ateAndTi|
|000033c0| 6d 65 22 2c 20 66 64 61 | 74 65 25 2c 20 66 62 75 |me", fda|te%, fbu|
|000033d0| 66 66 65 72 25 2c 20 32 | 38 0d 16 4e 0e 3d 24 66 |ffer%, 2|8..N.=$f|
|000033e0| 62 75 66 66 65 72 25 0d | 16 58 04 0d 16 62 19 dd |buffer%.|.X...b..|
|000033f0| a4 75 70 70 65 72 5f 63 | 61 73 65 28 73 74 72 69 |.upper_c|ase(stri|
|00003400| 6e 67 24 29 0d 16 6c 0b | ea 20 6c 6f 6f 70 25 0d |ng$)..l.|. loop%.|
|00003410| 16 76 16 e7 20 a9 28 73 | 74 72 69 6e 67 24 29 20 |.v.. .(s|tring$) |
|00003420| 3e 20 30 20 8c 0d 16 80 | 1d 20 e3 20 6c 6f 6f 70 |> 0 ....|. . loop|
|00003430| 25 20 3d 20 31 20 b8 20 | a9 28 73 74 72 69 6e 67 |% = 1 . |.(string|
|00003440| 24 29 0d 16 8a 3a 20 20 | 20 e7 20 c1 73 74 72 69 |$)...: | . .stri|
|00003450| 6e 67 24 2c 6c 6f 6f 70 | 25 2c 31 29 3e 3d 22 61 |ng$,loop|%,1)>="a|
|00003460| 22 20 80 20 c1 73 74 72 | 69 6e 67 24 2c 6c 6f 6f |" . .str|ing$,loo|
|00003470| 70 25 2c 31 29 3c 3d 22 | 7a 22 20 8c 0d 16 94 3a |p%,1)<="|z" ....:|
|00003480| 20 20 20 20 20 c1 73 74 | 72 69 6e 67 24 2c 6c 6f | .st|ring$,lo|
|00003490| 6f 70 25 2c 31 29 20 3d | 20 bd 28 97 28 c1 73 74 |op%,1) =| .(.(.st|
|000034a0| 72 69 6e 67 24 2c 6c 6f | 6f 70 25 2c 31 29 29 20 |ring$,lo|op%,1)) |
|000034b0| 80 20 26 44 46 29 0d 16 | 9e 08 20 20 20 cd 0d 16 |. &DF)..|.. ...|
|000034c0| a8 0c 20 ed 20 6c 6f 6f | 70 25 0d 16 b2 05 cd 0d |.. . loo|p%......|
|000034d0| 16 bc 0d 3d 20 73 74 72 | 69 6e 67 24 0d 16 c6 04 |...= str|ing$....|
|000034e0| 0d 16 d0 4c f4 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...L. --|--------|
|000034f0| 2d 20 52 6f 75 74 69 6e | 65 73 20 74 6f 20 63 72 |- Routin|es to cr|
|00003500| 65 61 74 65 20 61 20 62 | 75 66 66 65 72 20 61 72 |eate a b|uffer ar|
|00003510| 65 61 20 69 6e 20 74 68 | 65 20 52 4d 41 20 2d 2d |ea in th|e RMA --|
|00003520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 16 da 04 |--------|----....|
|00003530| 0d 16 e4 15 dd a4 42 75 | 66 66 5f 43 72 65 61 74 |......Bu|ff_Creat|
|00003540| 65 28 6c 25 29 0d 16 ee | 0e ea 20 66 25 2c 70 25 |e(l%)...|.. f%,p%|
|00003550| 2c 6e 25 0d 16 f8 25 e7 | 20 6c 25 83 34 3c 3e 30 |,n%...%.| l%.4<>0|
|00003560| 20 8c 20 6e 25 3d 28 6c | 25 81 34 2b 31 29 2a 34 | . n%=(l|%.4+1)*4|
|00003570| 20 8b 20 6e 25 3d 6c 25 | 0d 17 02 23 c8 99 20 22 | . n%=l%|...#.. "|
|00003580| 4f 53 5f 4d 6f 64 75 6c | 65 22 2c 36 2c 2c 2c 6e |OS_Modul|e",6,,,n|
|00003590| 25 20 b8 20 2c 2c 70 25 | 3b 66 25 0d 17 0c 14 e7 |% . ,,p%|;f%.....|
|000035a0| 20 28 66 25 80 31 29 3c | 3e a3 20 8c 20 3d 30 0d | (f%.1)<|>. . =0.|
|000035b0| 17 16 0a 21 70 25 3d 6c | 25 0d 17 20 07 3d 70 25 |...!p%=l|%.. .=p%|
|000035c0| 0d 17 2a 04 0d 17 34 14 | dd f2 42 75 66 66 5f 53 |..*...4.|..Buff_S|
|000035d0| 63 72 61 70 28 70 25 29 | 0d 17 3e 18 c8 99 20 22 |crap(p%)|..>... "|
|000035e0| 4f 53 5f 4d 6f 64 75 6c | 65 22 2c 37 2c 2c 70 25 |OS_Modul|e",7,,p%|
|000035f0| 0d 17 48 05 e1 0d 17 52 | 04 0d 17 5c 1b dd f2 42 |..H....R|...\...B|
|00003600| 75 66 66 5f 45 6e 6c 61 | 72 67 65 28 f8 20 70 25 |uff_Enla|rge(. p%|
|00003610| 2c 6c 25 29 0d 17 66 08 | ea 20 6e 25 0d 17 70 1f |,l%)..f.|. n%..p.|
|00003620| e7 20 70 25 3d 30 20 8c | 20 70 25 3d a4 42 75 66 |. p%=0 .| p%=.Buf|
|00003630| 66 5f 43 72 65 61 74 65 | 28 34 29 0d 17 7a 17 6e |f_Create|(4)..z.n|
|00003640| 25 3d a4 42 75 66 66 5f | 43 72 65 61 74 65 28 6c |%=.Buff_|Create(l|
|00003650| 25 29 0d 17 84 0d e7 20 | 6e 25 3c 3e 30 20 8c 0d |%)..... |n%<>0 ..|
|00003660| 17 8e 17 20 20 f2 42 75 | 66 66 5f 43 6f 70 79 28 |... .Bu|ff_Copy(|
|00003670| 70 25 2c 6e 25 29 0d 17 | 98 15 20 20 f2 42 75 66 |p%,n%)..|.. .Buf|
|00003680| 66 5f 53 63 72 61 70 28 | 70 25 29 0d 17 a2 0b 20 |f_Scrap(|p%).... |
|00003690| 20 70 25 3d 6e 25 0d 17 | ac 05 cc 0d 17 b6 0a 20 | p%=n%..|....... |
|000036a0| 20 70 25 3d 30 0d 17 c0 | 05 cd 0d 17 ca 05 e1 0d | p%=0...|........|
|000036b0| 17 d4 04 0d 17 de 16 dd | f2 42 75 66 66 5f 43 6f |........|.Buff_Co|
|000036c0| 70 79 28 70 25 2c 6e 25 | 29 0d 17 e8 08 ea 20 69 |py(p%,n%|)..... i|
|000036d0| 25 0d 17 f2 48 e7 21 70 | 25 3e 21 6e 25 20 8c 20 |%...H.!p|%>!n% . |
|000036e0| 85 20 31 30 31 2c 22 45 | 52 52 4f 52 20 2d 20 42 |. 101,"E|RROR - B|
|000036f0| 75 66 66 65 72 20 74 6f | 6f 20 73 6d 61 6c 6c 2c |uffer to|o small,|
|00003700| 20 69 6e 20 42 75 66 66 | 5f 43 6f 70 79 20 50 72 | in Buff|_Copy Pr|
|00003710| 6f 63 65 64 75 72 65 3b | 22 0d 17 fc 58 e7 21 70 |ocedure;|"...X.!p|
|00003720| 25 83 34 3c 3e 30 20 8c | 20 85 20 31 30 32 2c 22 |%.4<>0 .| . 102,"|
|00003730| 45 52 52 4f 52 20 2d 20 | 42 75 66 66 65 72 20 73 |ERROR - |Buffer s|
|00003740| 69 7a 65 20 6e 6f 74 20 | 61 20 6d 75 6c 74 69 70 |ize not |a multip|
|00003750| 6c 65 20 6f 66 20 34 2c | 20 69 6e 20 42 75 66 66 |le of 4,| in Buff|
|00003760| 5f 43 6f 70 79 20 50 72 | 6f 63 65 64 75 72 65 3b |_Copy Pr|ocedure;|
|00003770| 22 0d 18 06 16 e3 20 69 | 25 3d 34 20 b8 20 21 70 |"..... i|%=4 . !p|
|00003780| 25 2d 31 20 88 20 34 0d | 18 10 11 20 20 6e 25 21 |%-1 . 4.|... n%!|
|00003790| 69 25 3d 70 25 21 69 25 | 0d 18 1a 08 ed 20 69 25 |i%=p%!i%|..... i%|
|000037a0| 0d 18 24 05 e1 0d 18 2e | 04 0d 18 38 1c dd a4 42 |..$.....|...8...B|
|000037b0| 75 66 66 5f 66 69 6c 65 | 6c 6f 61 64 28 6e 24 2c |uff_file|load(n$,|
|000037c0| f8 20 62 25 29 0d 18 42 | 14 ea 20 74 25 2c 6c 25 |. b%)..B|.. t%,l%|
|000037d0| 2c 65 25 2c 6e 25 2c 72 | 25 0d 18 4c 21 c8 99 22 |,e%,n%,r|%..L!.."|
|000037e0| 4f 53 5f 46 69 6c 65 22 | 2c 35 2c 6e 24 20 b8 20 |OS_File"|,5,n$ . |
|000037f0| 72 25 2c 2c 74 25 2c 2c | 6c 25 0d 18 56 0e 65 25 |r%,,t%,,|l%..V.e%|
|00003800| 3d 6c 25 2b 26 34 30 30 | 0d 18 60 23 e7 20 65 25 |=l%+&400|..`#. e%|
|00003810| 3e 21 62 25 20 8c 20 f2 | 42 75 66 66 5f 45 6e 6c |>!b% . .|Buff_Enl|
|00003820| 61 72 67 65 28 62 25 2c | 65 25 29 0d 18 6a 0f e7 |arge(b%,|e%)..j..|
|00003830| 20 62 25 3d 30 20 8c 20 | 3d 30 0d 18 74 33 62 25 | b%=0 . |=0..t3b%|
|00003840| 21 34 3d 6c 25 3a c8 99 | 20 22 4f 53 5f 46 69 6c |!4=l%:..| "OS_Fil|
|00003850| 65 22 2c 32 35 35 2c 6e | 24 2c 62 25 2b 38 2c 30 |e",255,n|$,b%+8,0|
|00003860| 3a 21 28 62 25 2b 6c 25 | 2b 38 29 3d 30 0d 18 7e |:!(b%+l%|+8)=0..~|
|00003870| 09 3d 62 25 2b 34 0d 18 | 88 20 dd f2 6b 65 79 70 |.=b%+4..|. ..keyp|
|00003880| 72 65 73 73 5f 6d 61 69 | 6e 77 28 69 63 6f 6e 25 |ress_mai|nw(icon%|
|00003890| 2c 6b 65 79 25 29 0d 18 | 92 05 e1 0d 18 9c 04 0d |,key%)..|........|
|000038a0| 18 a6 21 dd f2 6b 65 79 | 70 72 65 73 73 5f 77 6f |..!..key|press_wo|
|000038b0| 72 64 69 6e 28 69 63 6f | 6e 25 2c 6b 65 79 25 29 |rdin(ico|n%,key%)|
|000038c0| 0d 18 a7 0a c8 8e 20 b9 | 20 ca 0d 18 a8 0f 20 c9 |...... .| ..... .|
|000038d0| 20 6b 65 79 25 3d 31 33 | 3a 0d 18 a9 5a 61 61 24 | key%=13|:...Zaa$|
|000038e0| 3d 28 a4 69 63 6f 6e 5f | 67 65 74 64 61 74 61 28 |=(.icon_|getdata(|
|000038f0| 71 25 2c 77 6f 72 64 69 | 6e 25 2c 30 29 29 3a f2 |q%,wordi|n%,0)):.|
|00003900| 69 63 6f 6e 5f 70 75 74 | 64 61 74 61 28 71 25 2c |icon_put|data(q%,|
|00003910| 77 6f 72 64 69 6e 25 2c | 30 2c 22 22 2c 30 29 3a |wordin%,|0,"",0):|
|00003920| f2 72 65 64 72 61 77 77 | 69 6e 64 6f 77 28 71 25 |.redraww|indow(q%|
|00003930| 21 30 29 0d 18 aa 51 f2 | 63 61 72 65 74 5f 73 65 |!0)...Q.|caret_se|
|00003940| 74 70 6f 73 69 74 69 6f | 6e 28 77 6f 72 64 69 6e |tpositio|n(wordin|
|00003950| 25 2c 69 63 6f 6e 25 2c | 2d 31 2c 2d 31 2c 2d 31 |%,icon%,|-1,-1,-1|
|00003960| 2c a9 28 a4 69 63 6f 6e | 5f 67 65 74 64 61 74 61 |,.(.icon|_getdata|
|00003970| 28 71 25 2c 77 6f 72 64 | 69 6e 25 2c 69 63 6f 6e |(q%,word|in%,icon|
|00003980| 25 29 29 29 0d 18 ab 26 | 4e 75 6d 2b 3d 31 3a 77 |%)))...&|Num+=1:w|
|00003990| 6f 72 64 24 28 4e 75 6d | 29 3d 61 61 24 2b 22 20 |ord$(Num|)=aa$+" |
|000039a0| 22 3a f2 57 4f 52 44 47 | 45 54 0d 18 af 05 cb 0d |":.WORDG|ET......|
|000039b0| 18 b0 05 e1 0d 18 ba 11 | dd f2 74 65 78 74 28 46 |........|..text(F|
|000039c0| 49 4c 45 24 29 0d 18 c4 | 0a 2a 46 58 33 2c 32 0d |ILE$)...|.*FX3,2.|
|000039d0| 18 ce 1f ff 28 22 53 65 | 74 54 79 70 65 20 22 2b |....("Se|tType "+|
|000039e0| 46 49 4c 45 24 2b 22 20 | 26 46 46 46 22 29 0d 18 |FILE$+" |&FFF")..|
|000039f0| d8 0a 2a 46 58 33 2c 30 | 0d 18 e2 06 20 e1 0d 19 |..*FX3,0|.... ...|
|00003a00| 6e 0d dd f2 57 4f 52 44 | 47 45 54 0d 19 78 0e 41 |n...WORD|GET..x.A|
|00003a10| 41 3d 30 3a 67 6f 25 3d | b9 0d 19 82 0b f5 3a 41 |A=0:go%=|......:A|
|00003a20| 41 2b 3d 31 0d 19 8c 36 | e7 20 70 6f 73 78 25 2b |A+=1...6|. posx%+|
|00003a30| 28 69 6e 63 78 25 2a 28 | 41 41 2d 31 29 29 3e 31 |(incx%*(|AA-1))>1|
|00003a40| 35 3a 41 41 3d a9 28 61 | 61 24 29 3a ef 37 3a 67 |5:AA=.(a|a$):.7:g|
|00003a50| 6f 25 3d a3 3a e5 8d 64 | 52 59 0d 19 96 35 e7 20 |o%=.:..d|RY...5. |
|00003a60| 70 6f 73 78 25 2b 28 69 | 6e 63 78 25 2a 28 41 41 |posx%+(i|ncx%*(AA|
|00003a70| 2d 31 29 29 3c 31 3a 41 | 41 3d a9 28 61 61 24 29 |-1))<1:A|A=.(aa$)|
|00003a80| 3a ef 37 3a 67 6f 25 3d | a3 3a e5 8d 64 52 59 0d |:.7:go%=|.:..dRY.|
|00003a90| 19 a0 36 e7 20 70 6f 73 | 79 25 2b 28 69 6e 63 79 |..6. pos|y%+(incy|
|00003aa0| 25 2a 28 41 41 2d 31 29 | 29 3c 31 20 3a 41 41 3d |%*(AA-1)|)<1 :AA=|
|00003ab0| a9 28 61 61 24 29 3a ef | 37 3a 67 6f 25 3d a3 3a |.(aa$):.|7:go%=.:|
|00003ac0| e5 8d 64 52 59 0d 19 aa | 36 e7 20 70 6f 73 79 25 |..dRY...|6. posy%|
|00003ad0| 2b 28 69 6e 63 79 25 2a | 28 41 41 2d 31 29 29 3e |+(incy%*|(AA-1))>|
|00003ae0| 31 35 3a 41 41 3d a9 28 | 61 61 24 29 3a ef 37 3a |15:AA=.(|aa$):.7:|
|00003af0| 67 6f 25 3d a3 3a e5 8d | 64 52 59 0d 19 b4 4a e7 |go%=.:..|dRY...J.|
|00003b00| 20 28 a4 69 63 6f 6e 5f | 67 65 74 64 61 74 61 28 | (.icon_|getdata(|
|00003b10| 71 25 2c 6d 61 69 6e 77 | 25 2c 70 6f 73 25 2b 28 |q%,mainw|%,pos%+(|
|00003b20| 28 41 41 2d 31 29 2a 69 | 6e 63 25 29 29 29 3d c1 |(AA-1)*i|nc%)))=.|
|00003b30| 61 61 24 2c 41 41 2c 31 | 29 20 67 6f 25 3d b9 3a |aa$,AA,1|) go%=.:|
|00003b40| e5 8d 64 48 59 0d 19 be | 52 e7 20 28 a4 69 63 6f |..dHY...|R. (.ico|
|00003b50| 6e 5f 67 65 74 64 61 74 | 61 28 71 25 2c 6d 61 69 |n_getdat|a(q%,mai|
|00003b60| 6e 77 25 2c 70 6f 73 25 | 2b 28 28 41 41 2d 31 29 |nw%,pos%|+((AA-1)|
|00003b70| 2a 69 6e 63 25 29 29 29 | 3c 3e 22 2b 22 3a 41 41 |*inc%)))|<>"+":AA|
|00003b80| 3d a9 28 61 61 24 29 3a | 3a 67 6f 25 3d a3 3a ef |=.(aa$):|:go%=.:.|
|00003b90| 37 3a e5 8d 64 52 59 0d | 19 c8 15 41 24 28 41 41 |7:..dRY.|...A$(AA|
|00003ba0| 29 3d c1 61 61 24 2c 41 | 41 2c 31 29 0d 19 d2 0f |)=.aa$,A|A,1)....|
|00003bb0| fd 20 41 41 3d a9 28 61 | 61 24 29 0d 19 dc 50 e7 |. AA=.(a|a$)...P.|
|00003bc0| 20 67 6f 25 3d b9 3a e3 | 20 41 3d 20 31 20 b8 20 | go%=.:.| A= 1 . |
|00003bd0| a9 28 61 61 24 29 3a f2 | 69 63 6f 6e 5f 70 75 74 |.(aa$):.|icon_put|
|00003be0| 64 61 74 61 28 71 25 2c | 6d 61 69 6e 77 25 2c 70 |data(q%,|mainw%,p|
|00003bf0| 6f 73 25 2b 28 41 2d 31 | 29 2a 69 6e 63 25 2c 41 |os%+(A-1|)*inc%,A|
|00003c00| 24 28 41 29 2c 30 29 3a | ed 3a cd 0d 19 e6 36 e7 |$(A),0):|.:....6.|
|00003c10| 20 67 6f 25 3d a3 20 f2 | 69 63 6f 6e 5f 70 75 74 | go%=. .|icon_put|
|00003c20| 64 61 74 61 28 71 25 2c | 6d 61 69 6e 77 25 2c 32 |data(q%,|mainw%,2|
|00003c30| 32 35 2c 22 57 6f 6e 27 | 74 20 46 69 74 22 2c 30 |25,"Won'|t Fit",0|
|00003c40| 29 0d 19 f0 2d e7 20 67 | 6f 25 3d b9 20 f2 69 63 |)...-. g|o%=. .ic|
|00003c50| 6f 6e 5f 70 75 74 64 61 | 74 61 28 71 25 2c 6d 61 |on_putda|ta(q%,ma|
|00003c60| 69 6e 77 25 2c 32 32 35 | 2c 22 22 2c 30 29 0d 19 |inw%,225|,"",0)..|
|00003c70| fa 17 f2 72 65 64 72 61 | 77 77 69 6e 64 6f 77 28 |...redra|wwindow(|
|00003c80| 71 25 21 30 29 0d 1a 04 | 15 e7 20 67 6f 25 3d a3 |q%!0)...|.. go%=.|
|00003c90| 20 4e 75 6d 3d 4e 75 6d | 2d 31 0d 1a 0e 05 e1 0d | Num=Num|-1......|
|00003ca0| 1a 18 0c dd f2 69 6e 63 | 67 65 74 0d 1a 22 24 e7 |.....inc|get.."$.|
|00003cb0| 6e 75 6d 3d 31 20 69 6e | 63 78 25 3d 30 3a 69 6e |num=1 in|cx%=0:in|
|00003cc0| 63 79 25 3d 2d 31 3a 69 | 6e 63 25 3d 2d 31 35 0d |cy%=-1:i|nc%=-15.|
|00003cd0| 1a 2c 24 e7 6e 75 6d 3d | 32 20 69 6e 63 78 25 3d |.,$.num=|2 incx%=|
|00003ce0| 31 3a 69 6e 63 79 25 3d | 2d 31 3a 69 6e 63 25 3d |1:incy%=|-1:inc%=|
|00003cf0| 2d 31 34 0d 1a 36 21 e7 | 6e 75 6d 3d 33 20 69 6e |-14..6!.|num=3 in|
|00003d00| 63 78 25 3d 31 3a 69 6e | 63 79 25 3d 30 3a 69 6e |cx%=1:in|cy%=0:in|
|00003d10| 63 25 3d 31 0d 1a 40 22 | e7 6e 75 6d 3d 34 20 69 |c%=1..@"|.num=4 i|
|00003d20| 6e 63 78 25 3d 31 3a 69 | 6e 63 79 25 3d 31 3a 69 |ncx%=1:i|ncy%=1:i|
|00003d30| 6e 63 25 3d 31 36 0d 1a | 4a 22 e7 6e 75 6d 3d 35 |nc%=16..|J".num=5|
|00003d40| 20 69 6e 63 78 25 3d 30 | 3a 69 6e 63 79 25 3d 31 | incx%=0|:incy%=1|
|00003d50| 3a 69 6e 63 25 3d 31 35 | 0d 1a 54 23 e7 6e 75 6d |:inc%=15|..T#.num|
|00003d60| 3d 36 20 69 6e 63 78 25 | 3d 2d 31 3a 69 6e 63 79 |=6 incx%|=-1:incy|
|00003d70| 25 3d 31 3a 69 6e 63 25 | 3d 31 34 0d 1a 5e 23 e7 |%=1:inc%|=14..^#.|
|00003d80| 6e 75 6d 3d 37 20 69 6e | 63 78 25 3d 2d 31 3a 69 |num=7 in|cx%=-1:i|
|00003d90| 6e 63 79 25 3d 30 3a 69 | 6e 63 25 3d 2d 31 0d 1a |ncy%=0:i|nc%=-1..|
|00003da0| 68 25 e7 6e 75 6d 3d 38 | 20 69 6e 63 78 25 3d 2d |h%.num=8| incx%=-|
|00003db0| 31 3a 69 6e 63 79 25 3d | 2d 31 3a 69 6e 63 25 3d |1:incy%=|-1:inc%=|
|00003dc0| 2d 31 36 0d 1a 72 05 e1 | 0d 1a 7c 0a dd f2 66 69 |-16..r..|..|...fi|
|00003dd0| 6c 6c 0d 1a 86 16 20 c8 | 99 20 22 48 6f 75 72 67 |ll.... .|. "Hourg|
|00003de0| 6c 61 73 73 5f 4f 6e 22 | 0d 1a 90 10 e3 20 41 3d |lass_On"|..... A=|
|00003df0| 20 30 20 b8 20 32 32 34 | 0d 1a 9a 51 e7 20 28 a4 | 0 . 224|...Q. (.|
|00003e00| 69 63 6f 6e 5f 67 65 74 | 64 61 74 61 28 71 25 2c |icon_get|data(q%,|
|00003e10| 6d 61 69 6e 77 25 2c 41 | 29 29 3d 22 2b 22 3a f2 |mainw%,A|))="+":.|
|00003e20| 69 63 6f 6e 5f 70 75 74 | 64 61 74 61 28 71 25 2c |icon_put|data(q%,|
|00003e30| 6d 61 69 6e 77 25 2c 41 | 2c bd 28 28 b3 28 32 35 |mainw%,A|,.((.(25|
|00003e40| 29 29 2b 36 35 29 2c 30 | 29 0d 1a a4 05 ed 0d 1a |))+65),0|).......|
|00003e50| ae 17 20 c8 99 20 22 48 | 6f 75 72 67 6c 61 73 73 |.. .. "H|ourglass|
|00003e60| 5f 4f 66 66 22 0d 1a b8 | 17 f2 72 65 64 72 61 77 |_Off"...|..redraw|
|00003e70| 77 69 6e 64 6f 77 28 71 | 25 21 30 29 0d 1a c2 05 |window(q|%!0)....|
|00003e80| e1 0d ff | |... | |
+--------+-------------------------+-------------------------+--------+--------+
